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This  volume  contains  the  program  documentation  for  the 
pre-  and  post-processor  BasePlot. 

Chapter  I,  Data  Dictionary,  contains  a  description  of 
data  in  BasePlot.  Chapter  II,  Definition  Sub-Programs  and 
Sub-Functions,  contains  a  brief  description  of  each 
individual  sub-program  or  sub- f uncti on .  Chapter  III, 
Program  Documentation,  contains  QuickBASIC  4.5  program  code 
written  for  BasePlot. 

Application  and  BasePlot's  User's  Manual  are  documente 
in  Volume  I:  Development  and  User's  Manual. 
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Abstract 

BasePlot's,  a  pre-  and  post -processor  for  TSARINA, 
Volume  II:  Technical  Reference  Manual  contains  three 
chapters.  Chapter  I,  Data  Dictionary,  contains  a 
description  of  data  in  BasePlot.  Chapter  II,  Definition 
Sub-Programs  and  Sub-Functions,  contains  a  brief  description 
of  each  individual  sub-program  or  sub-function.  Chapter 
III,  Program  Documentation,  contains  QuickBASIC  4.5  program 
code  written  for  BasePlot. 

Application  and  BasePlot's  User's  Manual  are  documented 
in  Volume  I:  Development  and  User’s  Manual. 
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Variabl es 


I.  Data  Dictionary 


A(Single  Presision)  =  First  X-coordinate 

AAF ( Integer )  =  Active  attack  file 

AF(Integer)  =  Active  file 

AHF(Integer)  =  Active  hit  file 

AV(Integer)  =  Active  view 

AW(Integer)  =  Active  window 

B(Single  Precision)  =  First  Y-coordinate 

BGRD(String)  =  Background 

EGLDCOLR( Integer )  =  Bold  color 

BOMB( Integer )  =  Number  of  bombs 

C(Single  Precision)=  Second  X-coordiante 

CHAR( Integer )  =  Character 

COL(Integer)  =  Colum 

COLR( Integer )  =  Color 

D(Single  Precision)  =  Second  Y-coordinate 

EXT (St ring)  =  File  extension 

FGRD( Integer )  =  Foreground 

FILENAME(String)  =  Filename 

FTYPE( String )  =  File  type 

FIRSTATK( Integer )  =  First  attack 

FIRSTHIT( Integer )  =  First  hit 

FIRSTTRL( Integer )  =  First  trial 

GSTEP ( Integer )  =  Grid  step 

Hi  Single  Precision)  -  Length  of  target 

INC( Integer)  -  Increment  between  bombs 
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ISTART( Integer )  =  Intial  start 
I  STOP ( Integer )  =  Initial  stop 
LASTATK( Integer )  =  Last  attack 
LASTHIT( Integer )  =  Last  hit 
LASTTRL ( Integer )  =  Last  trial 
MENUCOLR( Integer )  =  Menu  color 
MSG(String)  =  Message 

NAF(Integer)  =  Number  of  active  files 

NAME(String)  =  Name  of  f i 1 e ( inc 1 udes  path  and  extension) 
NF(Integer)  =  Number  of  files 
NHF(Integer)  =  Number  of  hit  files 
NUM( Integer)  =  Number 

NUMATTACKS ( Integer )  =  Number  of  attacks 
NUMHITS ( Integer )  =  Number  of  hits 
NUMTARGETS( Integer )  =  Number  of  targets 
NUMTR I AL ( Integer )  =  Number  of  trials 
OFFSET( Integer )  =  Off  set 

OPTN ( Integer )  =  Option 

* 

PATH(String)  =  Path  includes  the  drive  and  any 
sub -directories 
PF(Integer)  =  Pan  Factor 

PHI(Integer)  =  Angle  off  X-Y  coordinates  in  radians 

POPTN ( Integer )  =  Pallet  option 

PROMPT ( S t ring )  =  Prompts  user  for  inputs 

ROW f Integer )  -  Row 

SROW( Integer )  -  Sub-title  row 

STAT( Integer )  =  Status 


TEXT(String)  =  Text  is  used  to  display  messages 
TITLE( String )  =  Title 
TRL(Integer)  =  Trial 

VMAX( Integer )  =  Maximum  vetical  pixels 
WPNNUM( Integer )  =  Weapon  Number 
X(Integer)  =  X-coordiante 

XMAX(Single  Precision)  =  Maximum  X-coordinate 
Y(Integer)  =  Y-coordinate 
ZF(Integer;  =  Zoom  factor 
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Definition  of  Sub-Programs  and  Sub-Functions 


II  . 

Sub-Programs 
Main  Program 

AttackCont  rol 

ChangePal ette 
Cl earAttacks 
Cl earControl 

Cl earHits 

Cl earLine 

Decod eFil eName 

DrawWindow 

DumpBW 

DumpChar 
DumpCol r 

DumpCont  r ol 

Dumplni tPrn 
DumpInitScrn 

DumpLine 

DumpResetPrn 


The  main  program  initializes  the  variables 
and  controls  the  calling  of  the  sub¬ 
programs  . 

Shows  how  many  active  ATTACK  files  there 
are  and  then  plots  the  attacks. 

Allows  the  user  to  change  color  options. 

Removes  attacks  from  the  active  window. 

Determines  if  the  user  wants  ATTACKS  or 
HITS  cleared  from  the  screen  and  then 
removes  them  from  the  screen. 

Removes  the  HITS  from  the  active  view 
window . 

Erases,  a  line  of  material  based  on  the  row 
#  used  when  the  SUB-PROGRAM  is  called. 

Determines  the  characteristics  of  ‘he 
filename  being  entered  by  the  user. 

Is  called  to  draw  the  active  windows. 

Draws  a  black  and  white  plot  cf  the  screen 
on  a  plotter. 

Sends  characters  to  the  plotter. 

Prints  a  color  representation  of  the 
screen  on  a  plotter. 

Determines  the  user's  plotter 
characf  eristics . 

Sends  initial  codes  to  the  plotter. 

Clears  unnecessary  information  from  the 
screen  before  printing  on  the  plotter. 

Sends  one  line  of  information  to  the 
plotter  for  printing. 

Resets  printer  controls. 
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Fi 1 eEr  rMsg 


Used  if  there  is  an  error  inputting  a  file 
name  . 

FillHitPtr  Used  to  color  in  buildings  if  the  Target 

type  is  one  that  is  colored  in. 

GetAttacks  Reads  ATTACK  file  information  into  memory; 

based  on  the  extension  it  determines  if  it 
reads  old  ATTACK  files  or  new  ATTACK 
files. 

Draws  specific  points  on  the  screen  fir 
each  target. 

Processes  user's  HIT  file  input 
requirements . 

Reads  target  data  from  a  Target  file. 

Reads  new  target  colors. 

Determines  the  name  of  the  base  from  the 
user.  The  user  can  input  any  name  but  it 
would  normally  be  the  base  being 
simulated . 

GetWpnData  Reads  in  the  weapon  color  data.  If  the 

user  wishes  to  change  the  weapon  color 
data  the  user  would  need  to  update  the 
text  file  called  DemcWpn. 

HitCcntrol  Asks  the  user  which  attack  and  trial  the 

user  wants  shown  on  the  screen  and  shews 
the  hits  for  that  attack  and  trial. 

InitCoordinates  Sets  up  the  initial  coordinates  fer  the 

base  based  on  the  maximum  X  coordinate 
read  off  the  target  data  file. 

InitPalette  Initializes  pallet  colors  based  on  the 

DATA  statement  provided  in  the  main 
program. 

InitTargets  Initializes  the  initial  target  colors  by 

entering  integer  numbers  into  the  targe' 
color  array  and  target  fill  rray  from 
DATA  statements  found  in  the  main  program. 

InitWeapons  Initializes  the  weapon  colors  based  on  the 

DATA  statements  found  in  the  main  program. 

InputControl  Determines  which  files  the  users  want 

opened  basid  on  their  selection. 


Get Bounds 

GetHi ts 

GetTargets 
GetTgtData 
G  e  t  T  i  1 1  e 


screen  with  the 


Intro 

PanControl 

PanCoordinates 

?  1  ot AimPai  r 

P 1 ot AimPts 

?I otAl 1  Attacks 

? I c  t  A 1 lHits 

Pi atAttacks 

Pi otBorder 

Pi otDi rec 

Plot Grid 

P  I  o  t  G  r  i  d  A  x  i  s 

PlotGridLabeis 


Brings  up  the  initial 
disclaimer . 

Determines  a  new  reference  point  for  the 
program  based  on  user  inputs  (left,  right, 
down ,  or  up ) . 

Changes  the  screen  reference  point.  The 
reference  point  is  changed  by  moving  the 
coordinate  system  on  the  screen. 

Draws  the  individual  circles  representing 
the  area  affected  by  individual  hits  or 
bombs . 

Determines  if  there  is  more  than  one  bomb 
and  calls  the  sub-program  that  draws  the 
individual  hits.  The  number  of  bombs  is 
read  from  the  attack  cards.  Bach  bomb 
stick  has  a  certain  number  of  bombs 
depending  on  the  weapon  type. 

Is  called  from  PlotAttack  and  it  draws  all 
the  attack  files  that  are  active. 

Is  called  from  the  PlotHits  sub-program 
and  it  draws  all  the  hits  for  the  active 
files. 

Is  called  from  the  Redraw  window  sub¬ 
program.  It  redraws  attacks  or.  the  screen 
after  the  program  updates  user's  requests . 
For  example,  if  the  user  zooms  into  a  new 
area  of  the  base,  the  program  changes  the 
coordinates  and  then  redraws  the  attacks 
based  on  the  new  coordinates. 

Defines  the  initial  graphics  areas  and 
draws  a  border  around  the  area  that  will 
represent  the  base. 

Uses  the  attack  information  to  plot  the 
direction  of  the  bomb  stick  (length  and 
width  of  the  area  affected  by  the  bombs'. 

Draws  a  grid  on  the  screen  to  help  locat-1 
targets  and  hits. 

Craws  circles  on  the  earh  axis  of  the  grid 
to  help  locate  the  different  axis  numb*- re. 


Labels  the  grids  based  on  the  initial 
coordi n a t. e s  . 
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P 1 otGidLines 
Pi otHi tCcnt  r ol 

Pi otHi ts 

P 1 otOneAt tack 

P 1 otOneHi t 
PlotStick 

P 1 otSubTi tie 

?1 otTargets 

PlotTitle 

Tr intEr rMsg 

PrmtLine 

?r  mtMenu 

ReadNewAt  tacks 

ReadNewHi t s 

ReadNewTargets 

F  eadO 1 dAt t acks 


Draws  the  lines  on  the  grid. 

Determines  how  many  hits  to  plot  and  then 
plots  the  individual  hits  on  the  screen. 

Is  called  from  the  Redraw  sub-program  and 
is  used  to  plot  all  the  individual  hits  in 
the  active  hit  file. 

Uses  the  attack  data  and  plots  the  attack 
on  the  screen. 

Plots  the  individual  hits  on  the  screen. 

Determines  the  bomb  stick  starting  and 
ending  point  and  draws  a  line  between  the 
two  points  representing  the  stick. 

Shows  attack  and  hit  file  information 
(File,  attack,  time  of  day,  day  of  attack) 
on  line  23. 

Takes  the  coordinates  found  in  the  TARGETS 
text  file  and  draws  lines  to  represent 
buildings,  runways,  and  taxiways. 

Prints  the  title  of  the  base  being 
simulated  plus  any  active  attack  and  hit 
files  on  the  top  of  the  screen. 

Is  used  to  print  error  information  on  line 
24.  If  is  called  from  the  Error  traps  in 
the  main  program. 

Prints  a  line  of  information  based  on  the 
memory  variables  input  from  other  modules. 
For  example  the  test  string  variable  might 
contain  a  question  asking  for  a  user 
input . 

Prints  the  main  menu  on  the  screen  at  row 
25  . 


Reads  attack  text  file  which  is  in  TSARINA 
card  column  format. 

Reads  a  hit  text  file  whi oh  is  output  trim 

TSARINA . 

Reads  a  target  text  file  which  is  :  :. 

TSARINA  card  column  format. 

Reads  file  s  with  .$1$  and  .  GSG  ••nsi 
These  files  are  in  binary  format  which 
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ReadOldHits 

ReadOldTargets 

ReDrawWindow 

ResetControl 

ResetMatching 

ResetSplitCoord 

ResetStartup 

Reset View 

RestoreWindow 

SaveWindow 
SetSp 1 1 tCoord 

SetWpnS tat 
Sp 1 i tCont  r o 1 

Togg 1 eActFi 1 e 


were  created  after  reading  the  initial 
Attack  files  in  TSARINA  format. 

Reads  files  with  .$1$  and  . $$$  extensions. 
These  files  are  in  binary  format  which 
were  created  after  reading  the  initial  Hit 
files  in  TSARINA  format. 

Reads  files  with  .$1$  and  . $$$  extensions. 
These  files  are  in  binary  format  which 
were  created  after  reading  the  initial 
Target  files  in  TSARINA  format. 

Used  to  redraw  the  active  window  whenever 
there  are  changes  made  to  the  inputs  of 
that  window. 

Resets  various  controls  in  the  main 
program . 

Determines  active  windows  and  sets 
original  graphics  coordinates  within  each 
window . 

Resets  the  split  coordinates  to  be  used 
when  using  split  screens. 

Returns  the  screens  to  the  original 
coordinates  used  prior  to  zooming  or 
panning . 

Resets  the  graphics  area  to  its  maximum 
size. 

Restores  the  current  active  windows  to 
graphics  arrays. 

Saves  current  window  to  graphic  arrays  so 
they  can  be  recalled  later. 

Determines  the  initial  split  coordinates 
to  be  used  whenever  the  user  decides  to 
view  two  windows  on  the  screen. 

Determines  the  weapon  status  for  each 
weapon  type. 

Used  to  split  the  graphics  area  in  half  is 
allow  the  user  to  view  two  windows  at 
once . 

Switches  the  file  that  is  currently 
active.  There  can  be  up  to  two  files 
(Attack  and  Hit)  open  at  the  same  time  but 
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Toggl eBGrd 


Toggl eControl 


Toggl eEf facts 


Toggl eFGrd 


Toggl eGrid 
Toggl eScr een 


Togg 1 eUXOs 


Togg 1 eWpn 


Wri teAt  tacks 


Writ eH its 


WriteTargets 


SoomCont  rol 


SoomCoordinates 


the  user  can  only  view  one  file  at  a  time. 
The  active  files  are  displayed  in  bold 
white  on  the  title  line. 

Changes  the  color  of  the  background. 
Turning  background  colors  off  allows  the 
user  to  see  the  attacks  and  hits  more 
cl  earl y . 

Determines  what  the  users  wants  to  turn  on 
or  off  by  toggling  certian  program 
characteristics. 

Turns  on  the  effects  for  displaying 
attacks,  hits,  or  the  grid. 

Changes  the  foreground  colors  based  on 
weapon  status.  Turning  foreground  colors 
off  and  then  using  the  function  keys 
allows  the  users  to  clearly  see  individual 
weapon  types . 

Turns  the  grid  system  on  and  off. 

Changes  which  screen  is  active  by  changing 
the  color  of  the  border  around  the  screen. 

Determines  whether  the  unexploded 
ordinance  is  shown  on  screen. 

Changes  the  colors  of  the  weapons 
displayed  on  the  screen. 

Writes  a  binary  file  of  the  TSARINA  format 
text  file  to  allow  for  a  quicker  display 
of  inputs  the  next  time  program  is  called. 

Writes  a  binary  file  of  the  TSARINA  forma*, 
text  file  to  allow  for  a  quicker  display 
of  inputs  the  next  time  program  is  called. 

Writes  a  binary  file  of  the  TSARINA  forma* 
text  file  to  allow  for  a  quicker  display 
of  inputs  the  next  time  program  is  called. 

Changes  the  value  of  the  coordinate  system 
to  allow  the  user  to  get  a  closer  view  of 
various  sections  of  the  base. 

Determines  the  new  coordinate  values  based 
on  whether  the  user  wants  zoom  in  or  out . 
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Sub- Pune  t ions 
GetFi 1 eName 

GetFi 1 eNum 

Get IData 

GetOptn 
Gr idStep 

I  max 

IMin 


Used  to  get  filenames  for  Attack,  Hit, 
Target  Data,  and  Weapon  Data  files  which 
are  used  as  input  files. 

Asks  the  user  which  active  file  number 
they  want  to  remove  when  the  number  of 
active  files  exceeds  the  max  allowed. 

Called  when  the  user  is  required  to  tell 
the  program  which  attack  or  trial  to  use 
when  plotting  hits  or  attacks  on  the 
screen.  It  performs  an  initial  check  to 
make  sure  the  user  is  within  the  program 
parameters . 

Used  to  wait  for  the  user's  responses 
during  menu  options. 

Sets  the  amount  of  space  between  each  jii.i 
line  when  the  grid  feature  is  toggle  ;n 
the  screen. 

Determines  the  initial  maximums  used  by 
the  PlotGrid  sub-program. 

Determines  the  initial  minimums  used  by 
the  PlotGrid  sub-program. 
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III.  Program  Documentation 


Introduction 

TSARINA  Backround.  BasePlot  was  designed  to  allow 
analysts  experienced  in  the  use  of  TSARINA  (Theater 
Simulation  of  Air  base  Resources  INputs  using  AIDA)  and  a 
knowledge  of  ABO  planning  to  observe  on  screen  the  results 
of  an  attack  scenario  run  in  TSARINA.  TSARINA  is  a  Monte 
Carlo  computer  simulation  model  (Emerson,  1932:1)  which 
asseses  an  air  base's  vulnerability  to  an  enemy’s 
conventional  or  chemical  attack.  TSARINA  can  be  run  on  a 
main-frame  or  micro-computer  but  it  requires  the  user  to 
have  an  extensive  working  knowledge  of  ABO.  TSARINA  allows 
analysts  the  oportunity  to  simulate  attacks  on  various 
airbases  but  it  does  not  provide  any  graphical 
representations  of  either  TSARINA  inputs  or  TSARINA  results. 

BasePl ot  Programing  Code 

Pr ogram. . . BP7  (BasePlot  Version  7) 

Author  .... Capt  Bob  O'Neil 
Editor. . . .Capt  Rick  Cockley 
Date . August  1990 

REM  This  is  the  Main  Module 

****************************************************** *  +  *  *  * 

REM  DECLARE  indicates  the  number  of  parameters  and  data  : ype 
REM  of  each  parameter  that  is  passed  using  FUNCTIONS  or 
REM  SUB -PROGRAMS 

DECLARE  SUB  Intro  () 

DECLARE  SUB  FileErrMsg  (Num!>,  Msg$) 

DECLARE  SUB  Pi otCridLabel s  (IStart%,  IStopV  GStep%.  Col r % , 
AV% ,  AW% ) 
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DECLARE  SUB  PlotGridAxis  (IStart%,  IStop%,  GStep%,  Colr%> 

DECLARE  SUB  Pi otGridLines  (IStart%,  IStop%,  GStep%,  ColrV 
A  V%) 

DECLARE  FUNCTION  GridStep%  (A!) 

DECLARE  FUNCTION  IMax%  (A!,  B!) 

DECLARE  FUNCTION  IMin%  (A!,  B!) 

DECLARE  SUB  ToggleGrid  ( NAF% ,  NHF% ,  AW% ,  AV%) 

DECLARE  SUB  PlotGrid  (AV%,  AW% ) 

DECLARE  SUB  FillHitPtr  (FirstAtk%,  LastAtk%,  FirstTrlV 
LastTr 1  % ,  AHF% ,  Num%) 

DECLARE  SUB  DumpControl  (BoldColr%,  DefColr%,  AW% ,  A7% 
DECLARE  SUB  DumpColor  () 

DECLARE  SUB  DumpBW  ( ) 

DECLARE  SUB  DumpChar  (Char%) 

DECLARE  SUB  DumpLine  (Colr%) 

DECLARE  SUB  DumpResetPrn  () 

DECLARE  SUB  DumpInitPrn  ( ) 

DECLARE  SUB  Dumplni tScrn  () 

DECLARE  SUB  ResetControl  (BoldColr%,  DefColr%,  AAF \ ,  NAFq.  . 
AHF% ,  NHF% ,  AV%,  AW% ) 

DECLARE  SUB  ResetMatchmg  ( NAF%  ,  NHF% ,  AV%  ,  AW%  ; 

DECLARE  SUB  ResetStartup  (NAF%,  NHF% ,  AV%  ,  AW% ) 

DECLARE  SUB  ResetView  (BoldColr%,  DefColr%,  AAF% ,  NAF% , 
AHF% ,  NHF% ,  AV%,  AW% ) 

DECLARE  SUB  ResetSp 1 1 tCoord  (A V%) 

DECLARE  SUB  SetSpl i tCcord  (AV%,  AW%) 

DECLARE  SUE  SplitControl  (DefColrS,  AAF°3 ,  NAF% ,  AHF%  .  NHEd 

v  1  ,  W } 

DECLARE  SUB  Togg 1 eCont rol  (BoldColr%,  DefColr%,  NAF%, 

NHF% ,  AHFlb  ,  hV\  .  AW°s ,  BGrd$,  FGrdS) 

1  2 


AAFq.  . 


DECLARE  SUB  Togg 1 eEf f ects  (NAF%,  NHF% ,  AW% ,  AW; 

DECLARE  SUB  ToggleScreen  (AAF%,  NAF% ,  AHF% ,  NHF% ,  AW% ,  AV% 
DefCol r%) 

DECLARE  SUB  DrawWindow  ( AAF% ,  MAF% ,  AHF% ,  NHF% ,  AW% ,  AV%, 
Col r%) 

DECLARE  SUB  Togg 1 eActFi 1 e  ( AF% ,  NF%  ) 

DECLARE  SUB  ToggleBGrd  (BGrd$) 

DECLARE  SUB  ToggleFGrd  (FGrd$) 

DECLARE  SUB  ToggleUXOs  (NAF%,  NHF% ,  AW% ,  AV%) 

DECLARE  SUE  ChangePa  1  et t. e  (Offset%,  POptn%) 

DECLARE  SUB  SetWpnStat  (Stat%) 

DECLARE  SUB  InitPalette  () 

DECLARE  SUB  Cl earControl  (BoldColr%,  DefCol r% ,  AV% ,  AWA  , 
AAF% ,  NAF%,  AHF% ,  NHF% ) 

DECLARE  SUB  ClearAttacks  ( NAF% ,  AV%) 

DECLARE  SUB  ClearHits  ( NHF% ,  AV%) 

DECLARE  SUB  PanControl  (BoldColr%,  DefCol r%,  ,  AV% ,  AW% 

NAF% ,  NHF%) 

DECLARE  SUB  ZoomControl  (BoldColr%,  DefCol r%,  DF% ,  AVA .  AW 
N AF% ,  NHF% ) 

DECLARE  SUB  ReDiawWindow  ( NumTar get s% ,  AV%,  AW%  ,  NAF°-  .  UHF 
DECLARE  SUB  ZoomCoordinates  (AV%,  AW% ,  AF%  ,  BF%,  CFV> 
DECLARE  SUB  PanCoordinates  (AV%,  Optni>,  PF% ) 

DECLARE  SUB  RestoreWindow  (AW%,  AV%) 

DECLARE  SUE  PlotAttacks  ( NAF% ,  AV%) 

DECLARE  SUB  PlotHits  (NHF%,  AV%) 

DECLARE  SUE  HitControl  (BoldCol  i% ,  DefColr%,  NHF^  ,  A;!F  A  , 
AAF%,  AVI,  AW% ) 

DECLARE  SUB  P 1 o tHi t Con t r o 1  (FirotHitl,  LastHit%,  FirstTvlA 
LiotTilS,  AHFA,  AV%) 

DE  "LARE  SUB  PlotAl  LHits  (Nu;nH:  ts%,  "iumTrial  s’, ,  AHF%  ,  AV%) 


DECLARE  SUE  PlotOneHit  (Num%,  Trl%,  AHF% ,  AV%) 

DECLARE  SUB  AttackCont rol  (BoldColr%,  DefColr%,  NAF%  ,  AAF% , 
AV% ,  AW% ) 

DECLARE  SUB  Pi otAl 1  Attacks  ( AAF% ,  AV% ,  NumAttacks%) 

DECLARE  SUB  P 1 otOneAt tack  (Num%,  AAF% ,  AV%) 

DECLARE  SUB  PlotSubTitle  (AV%,  AW%  ,  AAF% ,  AHF% ) 

DECLARE  SUB  Ini tCoordinates  (XMax!,  Yl%,  Y2%) 

DECLARE  SUB  WnteTargets  (PathS,  NameS,  NumTargets%,  XMax!) 

DECLARE  SUB  ReadNewTargets  (PathS,  NameS,  ExtS,  NumTargets%, 
XMax  ) 

DECLARE  SUB  ReadOl dTargets  (Path$,  NameS,  NumTar gets'! , 

XMax !  ) 

DECLARE  SUB  GetTargets  (BoldCclr%,  DefColr%,  NumTa r get 3% , 
XMax  !  ) 

DECLARE  SUB  GetTitle  (TitleS) 

DECLARE  SUB  TcggleWpn  (WpnNum%) 

DECLARE  FUNCTION  GetOptnS  (Row%,  Col%,  Prompts) 

DECLARE  SUB  PrintMenu  (MenuColr%,  DefColrV; 

DECLARE  SUB  InitTargets  () 

DECLARE  SUB  InitWeapons  () 

DECLARE  SUB  PlotBorder  (AW%,  AV%,  Colr%) 

DZSLARE  SUB  PlotTitle  (BoldColr%,  De£Colr%,  AAF% ,  AHF% ) 
DECLARE  SUB  PlotTargets  ( NumTargets% ) 

DECLARE  SUB  SaveWindow  (AW%,  AV%) 

DECLARE  SUE  ReadOl dAttacks  (PathS,  NameS,  NumAt tacks!. ,  AAF%) 

DECLARE  SUE  GetAttacks  (  Bo  1  dCo  1  r  1> ,  DefColr%,  NAF%  ,  AAF%  ) 

DECLARE  FUNCTION  GetFileNameS  ( Inval 1 dNameS ,  FTypeS) 

DECLARE  SUE  ReadNewAt tacks  (PathS,  NameS,  ExtS,  N umA 1 1  a  c  k  3  \ . 
AAF%) 

DECLARE  SUB  DecodeFi 1 eName  (FileNameS,  PathS,  NameS,  ExtS  . 
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DECLARE  SUE  WriteAttacks  (PathS,  NameS,  NumAttacks%,  AAF% ) 

DECLARE  FUNCTION  GetFileNum%  (BoldColr%,  DefColr%,  Name$() , 
FType$ ) 

DECLARE  FUNCTION  GetIData%  (Row%,  Prompts,  Min%,  Max%) 

DECLARE  SUB  WriteHits  (PathS,  NameS,  NumHits%,  NumTrials%, 
AHF% ) 

DECLARE  SUB  ReadNewHits  (PathS,  NameS,  ExtS,  NumHits%, 
NumTrials%,  AHF%) 

DECLARE  SUB  ReadOldHits  (PathS,  NameS,  NumHits%,  NumTnals%, 
AHF% ) 

DECLARE  SUB  GetWpnData  (BoldColr%,  DefColr%) 

DECLARE  SUB  GetTgtData  (BoldCoIr%,  DefColr%) 

DECLARE  SUB  GetHits  (BoldColr%,  DefColr%,  NHF9-> ,  AHF% ) 

DECLARE  SUB  InputControl  (BoldColr%,  DefColr%,  AAF°s ,  NAF°>, 
AHF% ,  NHF% ) 

DECLARE  SUB  ClrLme  (Row%) 

DECLARE  SUB  PrintLine  (Row%,  Col%,  textS) 

DECLARE  SUB  PrintErrMsg  (Num%,  MsgS) 


DECLARE 

SUB 

PlotDirec 

(X%, 

Y% , 

W!  , 

H ! ,  Phi ! , 

ColrV 

DECLARE 

SUB 

PlotStick 

(XI, 

Y%  , 

W  !  , 

H  !  ,  Phi !  , 

C  o  1  r  %  .) 

DECLARE 

SUB 

PlotAimPts 

( Bomb% , 

7  9- 
A  o  , 

Yl,  Of  s  t ! 

,  Inc!  , 

Col r% ,  R ! ,  SF ! ) 

DECLARE  SUB  PlotAimPair  ( X% ,  Y% ,  W!,  H!,  Phi!,  Colr%,  R!, 
c  F  |  : 

DECLARE  SUB  GetBounds  (1%,  Colr%,  XW% ,  YW% ) 

'  Declare  Data  Structures  as  DYNAMIC.  Allows  memory  t  ;  be 
freed  when  variables  are  not  being  used. 

REM  SDYNAMIC 

Increase  Stack  Size  (Increases  RAM  memory  for  temporary 
quantity  storage  j 

CLEAR  ,  ,  2043 

Deri  i  r e  Record  Types 
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TYPE  AttRecordType 
Num  AS  INTEGER 
Phi  AS  SINGLE 
X  AS  INTEGER 

Y  AS  INTEGER 
Bomb  AS  INTEGER 
SLen  AS  INTEGER 
Wpn  AS  INTEGER 
W  AS  SINGLE 
Inc  AS  SINGLE 
Ofst  AS  SINGLE 

END  TYPE 

TYPE  Hi tRecordType 
Atk  AS  INTEGER 
Trl  AS  INTEGER 
X  AS  INTEGER 

Y  AS  INTEGER 
Wpn  AS  INTEGER 
UXO  AS  INTEGER 
Phi  AS  INTEGER 
Alt  AS  INTEGER 

END  TYPE 

Declare  Dimension  Limits  (Sets  array  maximums) 


MaxTargets%  = 

1000  : 

MaxAttacks%  =  100: 

MaxTrials 

MaxTgtTypes% 

=  30: 

MaxWpnTypes%  =  10: 

MaxAt tFi 1 

MaxHi tFi 1 es% 

=  2  : 

MaxWindows%  =  3 : 

MaxViews% 

Declare  Weapon  Data  Structures 

DIM  WpnCo 1 r% ( MaxWpnTypes% )  '  Weapon  Colors 

DIM  WpnStat% ( MaxWpnTypes% )  '  Weapon  Display  Status  ' 1 

On) 


DIM  WpnXMMaxWpnTypesV) 
DIM  W  p n Y  a,  (  M  a  xW  pnT  y  p  e  s  %  • 


Weapon  Effects  X-Dimensicn 
Weapon  Effect  s  Y - D l mens i z n 
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'  Declare  Target  Data  Structures 

DIM  Tgt (MaxTargets% ,  9)  '  Target  Type  and  Plot  Points 

DIM  TgtCol r% (MaxTgtTypes% )  '  Target  Colors 

DIM  TgtFi 1 l%(MaxTgtTypes%)  '  Target  Fill  Option  (1  -  On) 

'  Declare  Attack  Data  Structures 

DIM  AR  AS  AttRecordType  '  Attack  Record  for  Random 

'  Access 

DIM  At  tFtr%  (MaxAt  tacks°6  ,  MaxAttFi  1  es%)  ’  Attack  Pointers 

'  for  Random 
'  Access 

DIM  At  tStat% (MaxAt tacks%  ,  MaxAt  tFi  1  es% )  '  Attack  Status  1 

'  =  On ) 

DIM  AttDay%(MaxAttacks% ,  MaxAt tFi 1 es% )  '  Day  of  Attack 

DIM  AttHour%(MaxAttacks% ,  MaxAt tFi 1 es% )  '  Hour  of  Attack 

DIM  NumAttacks%(MaxAttFiles%)  ’  Number  of  Attacks 

DIM  At tFi 1 e$ ( MaxAttFi 1 es% )  '  Attack  File  Names 

Declare  Hit  Data  Structures 

DIM  HR  AS  Hi tRecordType  ’  Hit  Record  for  Random 

Access 

DIM  HitPtr%(MaxAttacks% ,  MaxTrials%,  MaxHitFi  1  es'o )  '  Hit 

'  Pointers  for  R  Access 

DIM  Hi  tStat.%(  MaxAt  tacks  li,  MaxTnals%,  MaxHi  tFi  1  es% )  ’  H  i  * 

Status  (i  =  On) 

DIM  NumHi ts%( MaxHi tFi 1 es% )  ’  Number  of  Hits 

DIM  NumTri al s%( MaxHi tFi 1 es% )  '  Number  of  Trials 

DIM  Hi  t?i  l.i$(  MaxHi  tFi  les%)  '  Hit  File  Names 

'  Declare  Program  Control  and  Graphic  Data  Structures 

DIM  SlTf 20000),  S2M  20000)  ’  Screen  Maps 

DIM  SC.j  1  r%  (  MaxVi  ews%  )  '  Screen  Border  Colors 


DIM  VY%(MaxWindows% ,  MaxViews%) 
1  Coordinates 

DIM  SRow% (MaxWmdows% ) 

DIM  A(MaxViews%) ,  B(MaxViews%) 

'  Coordinates 

DIM  C(MaxViews% ) ,  D(MaxViews%) 

'  Coordinates 

DIM  Attack$(MaxViews% ) 

DIM  Hit$(MaxViews%) 

DIM  ECov$ (MaxVi ews% ) 

DIM  UXOs$ (MaxV i ews% ) 

DIM  Grid$(MaxViews%) 

DIM  PalCol r%( 3  ,  7) 

DIM  G%(350,  4),  I Sum% ( 4 ) 


Screen  Physical 

Screen  Subtitle  Rows 
Screen  Logical 

Screen  Logical 

Screen  Attack  Subtitles 
Screen  Hit  Subtitles 
Weapon  Effects  Status 
UXOs  Status 
Grid  Status 

Palette  Color  Attribute 
Screen  dump  graphics 


'  Declare  Functions  (Used  to  compute  points  and  line 
'  distances  to  draw  attacks,  hits,  and  targets) 


DEF 

FNX1 

(X,  W, 

H, 

Phi )  = 

X 

- 

W 

* 

SIN ( Phi ) 

- 

H 

* 

COS! Phi  . 

'  X 

:  X-coordmate. 

DEF 

FNY 1 

(Y,  W, 

H, 

Phi )  = 

Y 

- 

w 

* 

COS(  Phi ) 

+ 

H 

k 

SIN  Phi , 

'  Y 

:  Y-coordinate . 

DEF 

FNX2 

(X,  W, 

H, 

Phi  )  = 

X 

- 

w 

* 

SIN( Phi ) 

+ 

H 

k 

COS: Phi  * 

'  Phi :  Ang 1 e 

off  the 

X  , 

,  Y 

coordinate . 

DEF 

FNY  2 

(Y,  W, 

H, 

Phi  )  ^ 

Y 

- 

W 

* 

COS( Phi ) 

- 

H 

* 

SIN ( Phi 

’  W 

:  Width 

of 

target , 

DEF 

FNX3 

(X,  W, 

H  , 

Phi  )  = 

X 

+ 

W 

* 

SIN( Phi  ) 

+ 

H 

* 

CCS' Phi , 

'H: 

Length 

of 

target , 

DEF 

FNY  3 

(  Y  ,  W  , 

H, 

Phi  )  = 

Y 

+ 

W 

★ 

COS( Phi  ) 

- 

H 

* 

S I N ( Phi  1 

DEF 

FNX4 

(X,  W, 

H, 

Phi  )  - 

y 

+ 

W 

* 

SIN( Phi ) 

- 

H 

* 

:os •:  Phi ) 

DEF 

FNY  4 

(Y,  W, 

H  , 

Phi )  = 

Y 

f 

W 

* 

COS (Phi ) 

+ 

H 

k 

3  IN ( Phi  ) 

DEF 

FIID 

(  A  ,  E  ,  ■ 

c , 

D )  -  (D 

- 

)  - 

/ 

i 

(B  -  A)  / 

r 

AR  ! 

DEF  FNT$  (A) 


RIGHT$( STR$( A) ,  LEN ( STR$ ( A ) )  -  1) 


'  Initialize  Program  Control  Data  Structures 

WpnFileS  =  ""  '  Clear  Weapon  File  Name 

TgtFi  1  e$  =  "":  TgtColrS  =  ""  ’  Clear  Target  File 

'  Names 

At tFi 1 e$ ( 1 )  =  "":  AttFile$(2)  =  ’  Clear  Attack  File 

'  Names 

Hi tFi 1 e$ ( 1 )  =  HitFile$(2)  =  ""  ’  Clear  Hit  File  Na 

BGrd$  =  "ON":  FGrd$  =  "ON"  '  Turn  BGrd/FGrd  Color 

ECov$ ( 1 )  =  "OFF":  ECov$(2)  =  "OFF"  ’  Turn  Weapon 

'  Effects  Off 


UXOs$(l)  =  "OFF": 

UXOs  $ ( 2 )  =  "OFF" 

'  Turn 

NXOs 

Of  f 

Gr idS ( 1 )  =  "OFF": 

Grid$( 2 )  =  "OFF" 

'  Turn 

Grid 

Off 

Hi t $ ( 1 )  =  "HITS:": 

Hi t$ ( 2 )  =  "HITS:" 

’  Set  r 

lit  S 

ubt  i 

Attack$ ( 1 )  =  "ATTACKS:"  ’  Set  Attack  Subtitle 

Attacks ( 2 )  =  "ATTACKS:"  ’  Set  Attack  Subtitle 


NHF%  = 

» 

0  : 

Files  Open 

NAF%  =  0 

'  Number 

of  Hit/Attac 

AHF%  = 

0  : 

AAF%  =  0 

’  Active 

Hit/ At  tack  F 

PF%  = 

1500  : 

ZF%  =  2500 

'  Pan/ 

Zoom  Factor 

AV%  = 

1  : 

AW%  =  1 

'  Active  View /Window 

VY%( 1  , 

» 

1}  =  15: 

Y -Coordinates 

VY%(1,  2)  = 

275  ' 

Window  1 

VY%( 2  , 

» 

1)  =  15: 
Y-Coordinates 

VY% ( 2 ,  2)  = 

135  ' 

Window  2 

\  r  v  f  7 

VI  o  •  J  , 

t 

1)  =  155: 
Y-Coordinates 

V Y%(3,  2)  = 

27  5 

Window  3 

SCo 1 r % ( 1 )  =  9: 

and  ye  1  low 

SColr%(2)  -• 

14 

Screen  Colors 

D  e  f  C  o  i 

t\  =  7: 

Eo 1 dCo 1 r %  - 

15 

T  e  x  t.  C  o  I  o  i  s 

3Row% ( 1 j  ~  21: 

SRow% ( 2 )  = 

11 

Subtitle  Rows 

SRow%(3)  =  21 

» 

Subtitle  r ows 

19 


VMax 


349 


'  Max  Vertical  Pixels  (EGA) 
SAR !  =47/64  '  Screen  Aspect  Ratio  (EGA) 

XMax  =0  '  Max  Target  X-Dimension 

'  Initialize  Palette,  Target  and  Weapon  Data 

RESTORE  PaletteData  '  Resets  DATA  statement  to  pallet  data 

'  prior  to  going  to  the  Initial  Pallet 
’  SUB-PROGRAM. 

CALL  InitPalette 

RESTORE  TargetData  '  Resets  DATA  statement  to  target  data. 
CALL  InitTargets 
RESTORE  WeaponData 
CALL  InitWeapons 

'  Initialise  Event  Trapping 

KEY  OFF  '  Turn  function  key  display  off 

ON  KEY ( 1 )  GOSUB  TrapFIKey  ’  Assign  subroutines  to  trap 
'  function  keys 

ON  KEY ( 2 )  GOSUB  TrapFPKey 

ON  KEY ( 3 )  GOSUB  TrapFIKey 

ON  KEY ( 4 )  GOSUB  TrapF4Key 

ON  KEY ( 5 )  GOSUB  TrapF5Key 

ON  KEY ( 6 )  GOSUB  TrapF6Key 

ON  KEY ( 7 )  GOSUB  TrapF7Key 

ON  KEY ( 3 )  GOSUB  TrapF8Key 

ON  KEY ( 9 )  GOSUB  TrapFOKey 

ON  KEY (10)  GOSUB  TrapFlOKey 

FOR  I  =  1  TO  10  '  Enable  function  key  trippm 

KEY (I)  ON 
NEXT  I 


?0 


'  Initialize  Screen  and  Colors 

ON  ERROR  GOTO  TrapNoEGA  '  Set  subroutine  to  trap  no  EGA 
'  error 

SCREEN  9,  ,  0,  0  '  Set  up  EGA  graphics  640  x  350  re 

ON  ERROR  GOTO  TrapErrors  '  Set  subroutine  to  trap  all 
'  errors 

PALETTE  1,  17  '  Set  background  blue 

COLOR  DefColr%,  0  '  Set  default  color  (White  on  Black 

CLS  '  Clears  screen 

'  Print  Intro  Screen  and  Disclaimer 
CALL  Intro 
COLOR  Def Col r% 

CLS 

’  Read  Target  Data  and  Initialize  Physical  Coordinates 
'COLOR  15,  1 

LIME  (0,  0)  —  (639,  3  49)  ,  7,  B 
LINE  (0,  35) -(639,  35),  7,  B 
n OCATE  ~  ,  2  / 

PRINT  "INITIAL  DATA  ENTRY  SCREEN" 

COLOR  7 ,  1 

CALL  GetTitle(TitleS) 

TgtFi 1 eName : 

OH  ERROR  GOTO  TrapErrors 

CALL  CetTargets  (  Eol  dCol  r%  ,  DefColr%,  NumTai get s% ,  MM  ax  - 
COLOR  Def  Coir  3),  0 

CALL  Ini  t  Coordinates  (  XMax  ,  VY%( 1 ,  1)  ,  VY5;  v  1  ,  2)) 

Plot  Initial  Screen 
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CLS 


CALL  PlotTitle(BoldColr%,  DefColr%,  AAF% ,  AHF% ) 

CALL  PlotSorder(AW%,  AV%,  SColr%(AV%)) 

CALL  P 1 otTargets ( NumTargets% ) 

CALL  SaveW indow ( AW% ,  AV% ) 

'  Print  Mam  Menu 
RESTORE  MainMenu 

CALL  PrintMenu( Bol dCol r% ,  DefColr%) 

'  Process  User  Selections  Until  User  Quits 

DC 

OptnS  =  CetOptnS (  23  ,  33,  "WHAT  NEXT?  ") 

SELECT  CASE  OptnS 
CASE  "A",  "a" 

CALL  At tackCont ro 1 ( BoldCol r% ,  DefColr?,  NAF? ,  AAF 
.  A V%,  AW%) 

CASE  "H" ,  "h" 

CALL  HitControl (BoldCol r%,  DefColr%,  NHF% ,  AHF?  , 
AAF% ,  AV% ,  AW% ) 

’.ASu  C  ,  c 

CALL  Cl earControl ( Bol dCol r? ,  DefColr%,  AV% ,  AW", 
AAF%,  NAF?,  AHF% ,  NHF% ) 

CASE  "I",  ”i ” 

Input Fi 1 eNameErr or : 

CALL  InputControl (BoldCol r% ,  DefColr?,  AAF?,  NAF? 
AHF?,  NHF% ) 

CASE  "Z",  "z" 

CALL  ZoomControl (BoldCol r% ,  DefColr?,  ZF%,  AW 
AW? ,  NAF%,  NHF% ) 

f  n  i»  r-.  »l  •»..*» 

.rtoc,  r  , 


CALL  PanControl ( Bol dCol  r%  ,  DefColr%,  PF% ,  AV% ,  AW% 
NAF% ,  NHF% ) 

CASE  "S",  "s" 

CALL  SplitControl (DefCol r%,  AAF% ,  NAF% ,  AHF% ,  NHF% 
AV%,  AW% ) 

CASE  "T",  "t" 

CALL  Togg  1  eCont  r  ol  (  Bol  dCol  r%  ,  DefColr%,  NAF°a  ,  AAF% 
NHF% ,  AHF% ,  A V% ,  AW% ,  3Grd$,  FGrd$) 

CASE  "R",  "r" 

CALL  ResetControl  (BoldCol  r%,  DefColr%,  AAF%  ,  NAF°o  . 
AHF% ,  NHF% ,  AV% ,  AW%) 

CASE  "D",  "d" 

CALL  DumpCont r o 1 ( Bo  1 dCo 1 r% ,  DefColr%,  AW% ,  AV%  ) 
RESTORE  MainMenu 

CALL  PrintMenu( BoldCol r% ,  DefColr%) 

CASE  "Q" ,  "q” 

EXIT  DO  '  'Quit 

CASE  ELSE 

BEEP  '  Invalid  response,  try  again 

END  SELECT 
LOOP 
CLOSE 
END 

'  Event  Trapping  Subroutines 
TrapFlKey : 

CALL  ToggleWpn(l) 

RETURN 
T  r  a  p  F  2  K  e  y  : 

CALL  ToggleWpn(2) 

RETURN 
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TrapF3Key : 

CALL  Toggl eWpn( 3 ) 

RETURN 
TrapF4Key : 

CALL  ToggleWpn(4) 

RETURN 
TrapF5Key : 

CALL  ToggleWpn(5) 

RETURN 
TrapF6Key : 

CALL  Togg 1 eWpn( 6 ) 

RETURN 
TrapF7Key : 

CALL  ToggleWpn(7) 

RETURN 
TrapFSKey : 

CALL  Toggl eWpn(3) 

RETURN 
TrapFQKey : 

CALL  ToggleWpn(9) 

RETURN 

TrapFlOKey: 

CALL  Togg 1 eWpn ( 10 ) 

RETURN 
TrapNoEGA : 

SCREEN  2 

■mil,  2)  =  150 

24 


VY% ( 2  ,  2)  =  75 

VY% ( 3 ,  1)  =  90:  VY% ( 3 ,  2)  =  150 
VMax  =  199:  SARI  =5/12 
RESUME  NEXT 

'  Directs  program  what  to  do  when  it's  interrupted  by  an 
'  error 

TrapEr rors : 

SELECT  CASE  ERR 

CASE  5  *  Invalid  CGA  color 

RESUME  NEXT 
CASE  53 

Msg$  =  "Fjle  not  found;  Please  reenter!  Press  an 
key  to  cont inue . " 

CALL  El  1 eEr rMsg ( ERR ,  <Msg$)) 

:ALL  Cl rLine( 24 ) 

TempS  =  "Please  reenter  filename:" 

CALL  PcintLme(  23,  20,  (TempS)) 

INPUT  ;  Names 
rileNameS  =  NameS 

CALL  DecodeFi  1  eName  (  Fi  1  eName$  ,  PathS,  NameS.  Ex.  tS 
IF  NameS  =  "quit"  THEN 

CLOSE 

END  IF 

RESUME 

CASE  100  ’  ReadNewHits 

MsgS  =  ”#  of  attacks  -•  expected  #  of  attacks; 
execution  stopped." 

CALL  Pr mtErrMsg (ERR,  (MsgS)) 

CLOSE 
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END 


CASE  101  'ReadNewHits 

Msg$  =  "#  of  trials  >  expected  #  of  trials; 
execution  stopped." 

CALL  PrintErrMsg ( ERR ,  (Msg$)) 

CLOSE 

END 

CASE  102  ' ReadNewAttacks 

Msg$  =  "#  of  attacks  >  max  #  of  attacks;  execution 
stopped . " 

CALL  PrintErrMsg (ERR,  (Msg$)) 

CLOSE 

END 

CASE  103  ’ReadNewHits 

Msg$  =  "Attacks  are  out  of  sequence;  execution 
stopped." 

CALL  PrintErrMsg ( ERR ,  (Msg$)) 

CLOSE 

END 

CASE  104  'ReadNewHits 

Msg$  =  "Trials  are  out  of  sequence;  execution 
stopped . " 

CALL  Pr intEr rMsg( ERR ,  (Msg$)) 

CLOSE 

END 

CASE  ELSE 

Msg$  -  "Execution  stopped." 

CALL  Pr intEr rMsg ( ERR ,  (Msg$)) 

CLOSE 
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END 


END  SELECT 
TgtFi 1 eNameEr ror : 

Msg$  =  "File  not  found;  Please  reenter!  Press  any  key  to 
continue . " 

CALL  Fi 1 eEr rMsg ( ERR ,  (Msg$)) 

CALL  Cl rLine( 2  4 ) 

CALL  ClrLine(12) 

CALL  Cl rLine( 14 ) 

RESUME  TgtFi leName 
'  Menu,  Target,  and  Weapon  Data 
MainMenu : 

DATA  11,25,10 

DATA  2, "INPUT  ATTACK  HIT  ZOOM  PAN  CLEAR  RESET 
SPLIT  TOGGLE  DUMP  QUIT" 

DATA  2, I, 10, A, 13, H, 24, Z, 30, P, 36, C, ; 

43,R,51,S,58,T,67,D,74,Q 

I nputMenu : 

DATA  5,24,13 

DATA  10, "ATTACK  FILE  HIT  FILE  TARGET  FILE  WEAPON 
FILE  EXIT" 

DATA  10 , A , 24 ,H , 35 , T , 49 ,W , 64 ,X 
ZoomMenu : 

DATA  4,24,13 

DATA  26, "IN  OUT  CHANGE  ZF  EXIT" 

DATA  26, I, 31,0, 37, C, 50, X 
PanMenu : 

DATA  6,24,13 

DATA  18, "UP  DOWN  LEFT  RIGHT  CHANGE  PF  EXIT” 


DATA  18,U,23,D,3G,L,37,R,45,C,58,X 


Cl earMenu : 

DATA  4,24,13 

DATA  2 6 , "ATTACKS  HITS  BOTH  EXIT” 

DATA  26, A, 36, H, 43, B, 51, X 
ResetMenu : 

DATA  4,24,13 

DATA  13, "VIEW  MATCH  COORDINATES  STARTUP  COORDINATES 
EXIT" 

DATA  13 , V , 20 ,M, 40 , S  ,  63  ,  X 
Toggl eMenu : 

DATA  9,24,13 

DATA  4 , "ATK  FILE  HIT  FILE  BGRD  FGRD  GRID  UXCS 
EFFECTS  SCRN  EXIT" 

DATA  4,A,15,H,*26,B,33,F,40,G,47,U,54,E,64,S,72,X 
DumpMenu : 

DATA  3,24,13 

DATA  15 , "DATAPRODUCTS  ONLY:  BLACK  &  WHITE  COLOR 

EXIT" 

DATA  3  6 , B , 52 , C , 61 , X 
Pal e 1 1 eDa  ta : 

DATA  17,2,3,4,5,6,7,57,58,59,60,61,62,63,4,4,4,4,4,4.4 
TargetData : 

DATA  7, 2, 7, 7, 5, 5, 6, 6, 2, 6, 1,6, 0,0, 0,7, 7, 7, 7, 7,; 

3, 1,3, 6, 6, 1,2, 7, 7, 7 

DATA  1,1, 0,0, 0,1, 0,0, 1,1, 0,0,0, 0,0, 0,0, 0,0,0,; 

1,0, 1,0, 0,0, 1,0, 0,0 

WeaponDat.a  : 

DATA  10,9,13,12,14,15  15,11,9,12 
DATA  25,25,25,25,25,25,25,25,25,25 
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DATA  25,25,25,25,25,25,25,25,25,25 

REM  $STAT I C 

*********************************************************** 
REM  This  SUB-PROGRAM  determines  how  many  active  ATTACK  files 
REM  there  are  and  then  plots  the  attacks. 

SUB  At tackCont r ol  (BoldColr%,  DefColr%,  NAF%  ,  AAF%,  AV%, 

AW%) 

SHARED  AttStat%(),  AttDay%(),  AttHour%(),  NumAttacks%( ) , 
At  tack$ (  ) 

IF  NAF%  >  0  THEN  '  Check  for  open  ATTACK  files 

Color  BoldColr% 

CALL  PrintLine( 24 ,  29,  ("Last  Attack  #  is  ”  +; 

STR$ ( NumAt  tacks % ( AAF% ) ) ) ) 

COLOR  Def Col r% 

IF  NumAt  tacks % ( AAF% )  >  1  THEN 

Num%  =  Get IData% ( 23 ,  ("What  Attack"),  0, 

NumAt tacks% ( AAF% ) ) 

ELSE 

Num%  =  1 
END  IF 

IF  Num%  =  0  THEN 

FOR  1%  =  1  TO  NumAt t acks% ( AAF% )  '  Determines  # 

ATTACK  files  open  and  plots  attacks  based  on 
'  on  attack  status. 

IF  AttStat%( 1% ,  AAF% )  <>  AV%  AND  AttStat%(I%, 
AAF% )  <>3  THEN 

Att.  Stat%(  1%,  AAF% )  =  AttStat%(I%.  AAF% )  +  AVn 

CALL  P 1 otOneAt tack ( 1% ,  AAF% ,  AV%)  ’  Plots 
'  attack 

END  IF 

NEXT  I'i 
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Attack$ ( AV% )  =  "ATTACKS:  F"  +  FNT$ ( AAF% )  +  "/A*/*” 

ELSEIF  AttStat%( Num% ,  AAF% )  <>  AV%  AND  AttStat% ( Num% , 
AAF%)  <>  3  THEN 

At t S t at% ( Num% ,  AAF% )  =  At t St a t % ( Num% ,  AAF% )  +  AV% 


CALL  PlotOneAttack ( Num% ,  AAF% ,  AV%) 


IF  RIGHTS! AttackS(AV%) ,  2)  <>  "/*"  THEN 

Attacks ( AV% )  =  Attack$( AV%)  +  "  F"  +  FNTS ( AAF% 
+  "/A"  +FNTS ( Num% ) 

At  tackS ( AV% )  =  Attacks ( AV% )  +  ”/D"  + 

FNTS (AttDay%( Num% ,  AAF% ) ) 

Attacks  (  AV%  )  -  Attacks  (  AV% )  +•  "/"  + 

FNT$( AttHour%(Num%,  AAF% ) ) 

END  IF 


END  IF 

CALL  PlotSubTitle( AV% ,  AW% ,  AAF% ,  AHF% )  '  Shows 

'  ATTACK  file  info  on  l.ine  23. 

CALL  ClrLine(24)  '  Clears  the  attack  control 
'  sub-menu  from  line  25. 


ELSE 

BEEP 
END  IF 
END  SUB 

REM  This  SUB-PROGRAM  allows  the  user  to  change  color 
REM  options. 

*********************************************************** 

SUE  ChangePal ette  (Offset%,  POptn%) 

'  Offset%  =  0  for  BGrd,  =  8  for  FGrd 

POptn%  =  1  for  BGrd  on,  =  2  for  FGrd  on,  =  3  for  BGrd  or 
'  FGrd  off 

SHARED  ? a  1 C o 1 r % ( ) 

FOR  1%  =  1  TO  7 
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PALETTE  1%  +  Of  f set% ,  PalCol r%( POptn% ,  1%) 

NEXT  1% 

END  SUB 

*********************************************************** 

REM  This  SUB-PROGRAM  removes  attacks  from  the  active  window. 
*********************************************************** 

SUB  ClearAttacks  (NAF% ,  AV%) 

SHARED  AttStat%(),  NumAttacks% ( ) ,  Attack$() 

Attacks ( AV% )  =  "ATTACKS:" 

FOR  J%  =  1  TO  NAF% 

FOR  1%  =  1  TO  NumAt  tacks%(J%) 

IF  AttStat%( 1% ,  J%)  =  AV%  OR  AttStat%(I%,  J%)  =  3 

THEN 

AttStat%( 1% ,  J%)  =  AttStat%( 1% ,  3%)  -  AV% 

•  END  IF 
NEXT'  1% 

NEXT  J% 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  determines  if  the  user  wants  ATTACKS 
REM  HITS  cleared  from  the  screen  and  then  removes  them  from 
REM  the  screen. 

*********************************************************** 

SUB  ClearControl  (BoldColr%,  DefColr%,  AV% ,  AW% ,  AAF% ,  NAF% , 
AHF%,  NHF% ) 

RESTORE  ClearMenu 

CALL  Pr intMenu( Bol dCol r% ,  DefColr%) 

DO 

OptnS  =  GetOptnS (  2 3 ,  35,  "CLEAR?  ") 

SELECT  CASE  OptnS 
CASE  "A",  "a" 
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CALL  Cl earAt tacks (NAF% ,  AV%) 

CALL  RestoreWindow( AW% ,  AV%) 

CALL  Pi otSubTi t 1 e ( AV% ,  AW%,  AAF% ,  AHF%) 
CALL  PlotHits( NHF%  ,  AV% ) 

CALL  PlotGrid(AV%,  AW%) 

EXIT  DO 
CASE  "H",  "h" 

CALL  ClearHits(NHF%,  AV%) 

CALL  RestoreWindow( AW% ,  AV%) 

CALL  P 1 ot SubTi t 1 e ( AV% ,  AW% ,  AAF% ,  AHF% ) 
CALL  Pi otAt tacks ( NAF% ,  AV%) 

CALL  Pi otGrid( AV% ,  AW% ) 

EXIT  DO 
CASE  "B",  "b" 

CALL  Cl earAttacks ( NAF% ,  AV%) 

CALL  ClearHits(NHF%,  AV%) 

CALL  RestoreWindow( AW% ,  AV%) 

CALL  Pi otSubTi t 1 e( AV% ,  AW%,  AAF% ,  AHF% ) 
CALL  PlotGrid(AV% ,  AW%) 

EXIT  DO 
CASE  "X",  "x" 

EXIT  DO 
CASE  ELSE 
BEEP 
END  SELECT 
LOOP 
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CALL  ClrLine(24) 

ENU  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  removes  the  HITS  from  the  active  view 
REM  window. 

SUB  ClearHits  ( NHF% ,  A V%) 

SHARED  HitStat%(),  NumHits%(),  NumTr i a 1 s% ( ) ,  Hit$() 

Hi t  $ ( AV% )  =  "HITS:" 

FOR  K%  =  1  TO  NHF% 

FOR  1%  =  1  TO  NumHi ts% ( K% ) 

FOR  J%  =  1  TO  NumTr ials%(K%) 

IF  Hi  tStat%  (  1%,  J%,  K°o  )  =  AV%  OR  Hi  t  S  t  a  t  %  (  1°,  . 
J%,  K%)  =  3  THEN 

Hi tStat% ( 1% ,  J%,  K%)  =  HitStat%( 1% ,  J%,  KVi  - 
AV% 

END  IF 
NEXT  J3> 

NEXT  1% 

NEXT  K% 

END  SUB 

REM  This  SUB-PROGRAM  erases  a  line  of  material  based  on  the 
REM  row  #  used  when  the  SUB-PROGRAM  is  called. 

SUB  ClrLine  (Row%) 

LOCATE  Row% ,  1 


PRINT  SPACES (79)  ; 


******  : 


REM  This  SUB-PROGRAM  determines  the  characteristics  of  the 
REM  filename  being  entered  by  the  user. 


SUB  DecodeFi 1 eName  (FileNameS,  PathS,  NameS,  Ext$) 

IF  LEN ( Fi 1 eNameS )  >  0  THEN  '  Determines  the  position  of 
'  the  period  in  a  filename  if  there  is  a  filename 
'  extension. 

Temp  =  INSTR ( 1 ,  FileNameS,  " . ” ) 

IF  Temp  >  0  THEN 

Ext$  =  MID$ ( Fi 1 eNameS ,  Temp,  4)  ’  Establishes  what 

'  file  extension  is. 

Path$  =  LEFT$ ( Fi 1 eName$ ,  Temp  -  1) 

ELSE 


Ex  t  $  =  "" 

Path$  =  FileNameS 
END  IF 
Temp  =  0 
DO 


Slash  =  Temp 

Temp  =  INSTR( Slash  +  1,  PathS,  "\" )  '  Determines  : 

'  there  is  a  slash  in  the  filename. 

LOOP  UNTIL  Temp  =  0 

IF  Slash  >  0  THEN 

NameS  =  MID$(Path$,  Slash  +  1,  3) 

PathS  =  LEFTS (PathS,  Slash) 

ELSE 

Temp  =  INSTR  (  1  ,  PathS,  ” :  " )  ’  Determines  n  a  e  o  1  u 

'  u  used  in  the  file  name  and  stores  it  as  the  pa-h. 

IF  Tump  i  0  THEN 


-  M IDS (PathS,  Temp  +  1,  3) 
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N  ame$ 


Path$  =  LEFTS ( PathS ,  Temp) 

ELSE 

NameS  =  PathS  '  Establishes  the  filename  wi thou 

'  path. 

PathS  =  "" 

END  IF 
END  IF 
ELSE 

PathS  =  "" 

NameS  =  "" 

ExtS  =  "" 

END  IF 
END  SUB 

*********************************************************** 

REM  This  SUB-PROGRAM  is  called  to  draw  the  active  windows. 
*****************************************************  *****■+■ 

SUB  DrawWindow  ( AAF% ,  NAF% ,  AHF% ,  NHF% ,  AW%,  AV%  ,  Cel r\  . 

SHARED  NumTargets% 

CALL  PlotBorder(AW%,  AV% ,  Colr%) 

CALL  P 1 otSubTi t 1 e ( AV% ,  AW% ,  AAF% ,  AHF% ) 

CALL  Pi otTargets ( NumTargets% ) 

CALL  SaveWindow ( AW% ,  AV%) 

CALL  PlotAttacks( NAF% ,  AV%) 

CALL  PlotHits( NHF% ,  AV% ) 

CALL  Pi otGr id( AV% ,  AW%) 

END  SUB 
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*********************************************************** 
REM  This  SUB-PROGRAM  draws  a  black  and  white  plot  of  the 
REM  screen  on  a  plotter. 

*********************************************************** 
SUB  DumpBW 

SHARED  G%(),  VMax 
FOR  1%  =  639  TO  0  STEP  -7 
I Stop%  =  1%  -  6 
IF  I Stop%  <  0  THEN  I  St op%  =  0 
FOR  J%  =  0  TO  VMax  STEP  1 
ISum%  =  0 
ICode%  =  1 

FOR  K%  =  1%  TO  IStop%  STEP  -1 

IF  POINT ( K% ,  J%)  >  0  THEN  ISum%  =  ISum%  +  ICode% 
ICode%  =  ICode%  *2 
NEXT  K% 

G%(J%,  1)  =  I Sum% 

NEXT  J% 

CALL  DumpLine(l) 

LPRINT  CHR$ ( 3 ) ;  CHR$(14); 

NEXT  1% 

END  SUB 

REM  This  SUB-PROGRAM  sends  characters  to  the  plotter. 

SUB  DumpChar  (Char%) 

SELECT  CASE  Char% 

CASE  3 

LPRINT  CHRS ( 3 ) ;  CHR$(3); 

CASE  13 
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LPRINT  CHR$ (141) ; 

CASE  ELSE 

LPRINT  CHR$ ( Char% ) ; 

END  SELECT 
END  SUB 

REM  This  SUB-PROGRAM  prints  a  color  representation  of  the 
REM  screen  on  a  plotter. 

SUB  DumpColor 

SHARED  G%( ) ,  I Sum% ( ) ,  VMax 
FOR  1%  =  639  TO  0  STEP  -7 
I  St  op%  =  1%  -  6 
IF  IStop%  <  0  THEN  I  St  op%  =  0 
FOR  J%  =  0  TO  VMax  STEP  1 
FOR  K%  =  1  TO  4 
ISum%(K%)  =  0 
NEXT  K% 

ICode%  =  1 

FOR  K%  =  1%  TO  I Stop%  STEP  -1 
SELECT  CASE  POINT(K%,  J%) 

CASE  1  TO  8 

ISum%(4)  =  ISum%(4)  +  ICode% 

CASE  9,  11 

ISum%(3)  =  ISum%(3)  +  ICode% 

CASE  10 

ISum%(3)  =  ISum%(3)  +  ICode% 

ISum%(l)  =  I5um%(l)  +  ICode% 

CASE  12 
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ISum%(3)  =  ISum%(3)  +  ICode% 

ISum%(2)  =  ISum%(2)  +  ICode% 

CASE  13 

I Sum%( 2 )  =  I Sum% ( 2 )  +  ICode% 

CASE  14,  15 

ISum%(2)  =  ISum%(2)  +  ICode% 

ISum%(l)  =  ISum%(l)  +  ICode% 

CASE  ELSE 
END  SELECT 
ICode%  =  ICode%  *  2 
NEXT  K% 

FOR  K%  =  1  TO  4 

G% ( J% ,  K%)  =  ISum%( K% ) 

NEXT  K% 

NEXT  J% 

FOR  J%  =  4  TO  1  STEP  -1 

Co  1  r  $  =  "Q,"  +  RIGHTS  (  STR$  (  J%  .)  ,  1)  + 

LPRINT  CHR$(3);  CHR$(2);  CHR$(27);  CoirS;  CURS  *  I  ! 
CALL  DumpLine ( J% ) 

LPRINT  CHR$(3);  CHR$(10); 

NEXT  J'l 

LPRINT  CHR$(3);  CHR$(14); 

NEXT  1% 

END  SUB 

***********************************************  ************ 
REM  This  SUB-PROGRAM  determines  the  user's  plotter 
REM  characteristics. 

*********************************************************** 

SUB  DumpControl  (BoldColr%,  DefColr%,  AW1  .  A V%) 
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SHARED  VY% ( ) ,  A(  )  ,  B(),  C(),  D() 

RESTORE  DumpMenu 

CALL  PrintMenu( BoldCol r% ,  DefColr%) 

BEEP 

DO 

Optn$  =  GetOptn$ (23,  36,  "DUMP?  ") 
SELECT  CASE  Optn$ 

CASE  "B",  "b" 

CALL  DumpInitScrn 
CALL  DumpInitPrn 
CALL  DumpBW 
CALL  DumpResetPrn 
EXIT  DO 
CASE  "C",  "c" 

CALL  DumpInitScrn 
CALL  DumpInitPrn 
CALL  DumpColor 
CALL  DumpResetPrn 
EXIT  DO 
CASE  "X",  "x" 

EXIT  DO 
CASE  ELSE 
BEEP 
END  SELECT 
LOOP 

VIEW  (20,  VY% ( AW% ,  I ) ) - ( 620 ,  VY%(AW%,  2)) 
WINDOW  ( A ( AV% ) ,  B(AV%) )-(C(AV%) ,  D(AV%)) 
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CALL  Cl rLine( 24 ) 


END  SUB 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxxxXxAAAX***: 


REM  This  SUB-PROGRAM  sends  initial  codes  to  the  plotter. 


SUB  DumpInitPrn 

WIDTH  "LPT1 : " ,  255  *  Sets  the  width  of  the  plotter  at 

'  255  characters . 

FOR  1%  =  1  TO  9 

LPRINT 

NEXT  1% 


LPRINT  CHR$ (27)  ;  "x,0,$"; 
LPRINT  CHR$ ( 2 ) ;  CHR$(29); 
LPRINT  CHR$ (27 ) ;  "3,0,$" 
LPRINT  CHR$( 3) ; 

END  SUB 


REM  This  SUB-PROGRAM  clears  unnecessary  information  from  the 
REM  screen  before  printing  on  the  plotter. 


*  x  x  x  x  x  *  k  -* 


SUB  DumpInitScrn 
SHARED  VMax 
CALL  ClrLine(23) 

CALL  Cl rLine( 24 ) 

CALL  Cl  rLine(  25  ) 

VIEW  (0,  0 ) - ( 639 ,  VMax) 

WINDOW  SCREEN  (0,  0)-(639,  VMax) 
END  SUB 
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REM  This  SUB-PROGRAM  sends  one  line  of  information  to  the 
REM  plotter  for  printing. 

SUB  DumpLine  (Colr%) 

SHARED  G% ( ) ,  VMax 
FOR  1%  =  1  TO  84 
LPRINT  CHR$ ( 0 ) ; 

NEXT  1% 

FOR  1%  =  0  TO  VMax  STEP  2 

CALL  Dump Char (G%( 1% ,  Colr%)) 

CALL  DumpChar(G%( 1%  +  1,  Colr%)) 

CALL  DumpChar ( G% ( I %  +  1,  Colr%)) 

NEXT  1% 

END  SUB 

REM  This  SUB-PROGRAM  resets  printer  controls. 

SUB  DumpResetPrn 

LPRINT  CHR$(3);  CHR$(2); 

LPRINT  CHR$ ( 27  )  ;  "B,8,$"; 

LPRINT  CHR$ ( 27 ) ;  "Q,4,$"; 

LPRINT  CHR$ (12) 

END  SUB 

REM  This  SUB-PROGRAM  is  used  if  there  is  an  error  inputting 
REM  a  file  name. 

SUB  FileErrMsg  (Num%,  Msg$) 

BEEP 

CALL  PnntLine(  24  ,  1,  ("ERROR  #  "  +  STR$(Num%)  +  " :  "  + 

Msg$  )  ) 
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DO 

LOOP  WHILE  INKEYS  = 
END  SUB 


REM  This  SUB-PROGRAM  is  used  to  color  in  buildings  if  the 
REM  Target  type  is  one  that  is  colored  in. 



SUB  Fil lHitPtr  (FirstAtk%,  LastAtk%,  FirstTrl%,  LastTrl%, 
AHF% ,  Num% ) 

SHARED  HitPtr%( ) 

FOR  1%  =  Fi rst Atk%  TO  LastAtk% 

FOR  J%  =  FirstTrl%  TO  LastTrl% 

HitPtr%( 1% ,  J%,  AHF% )  =  Num% 

NEXT  J% 

NEXT  1% 

END  SUB 


k  *  x  * 

REM  This  SUB-PROGRAM  reads  ATTACK  file  information  into  REM 
memory;  based  on  the  extension  it  determines  if  it 
REM  reads  old  ATTACK  files  or  new  ATTACK  files. 

;x********** 


SUB  GetAttacks  (BoldColr%,  DefColr%,  NAF%,  AAF"%  > 

SHARED  AttFi 1 e$( ) ,  NumAt t acks% ( ) 

STATIC  FileNameS,  PathS,  NameS,  Ext$  '  STATIC  command 
'  causes  these  variables  remain  in  this  SUB-PROGRAM. 

SELECT  CASE  NAF% 

CASE  0,  1 


nrncQ.  -  r<l  a.  ^ 

kWU  O  -  k%l\L  J  -  A. 

AAF%  --  NAF% 

CASE  2  'If  Number  of  Active  Attack  Files 

greater  than  2  then  one  has  to  be  removed. 

AAF'k  =  GetFi  1  eNum%(  EoldCol  r%  ,  DefColr%,  AttFile$(>, 
( "ATTACK"  )  > 


-12 


CLOSE  AAF%  +  3 


END  SELECT 

FileNameS  =  GetFi 1 eNameS ( ( At tFi 1 e$ ( 3  -  AAF% ) ) , 
("ATTACK"))'  Gets  filename  from  user. 

CALL  DecodeFi 1 eName ( Fi 1 eNameS ,  Path$,  Name$,  ExtS) 

'  Determines  if  there  is  an  extension  and  path. 

COLOR  BoldCol r% 

IF  LEFTS ( ExtS ,  2)  =  ".$"  THEN 

CALL  ReadOl dAttacks ( PathS ,  NameS,  NumAttacks%( AAF% ) , 
AAF% )  '  Reads  in  binary  file. 

ELSE  '  If  there  is  no  extension  reads  new  ATTACK 

'  file. 

CALL  ReadNewAt tacks ( PathS ,  NameS,  ExtS, 

NumAttacks% ( AAF% ) ,  AAF% ) 

CALL  WriteAttacks ( PathS ,  NameS,  NumAttacks%( AAF% ) , 

AAF% )  '  Writes  new  binary  file. 

END  IF 

COLOR  Def Co  1 r% 

AttFiie$( AAF% )  =  NameS 
END  SUB 

****************rtrt***************************rt***X********* 

REM  This  SUB-PROGRAM  draws  specific  points  on  the  screen  for 
REM  each  target. 

*********************************************************** 
SUB  GetBounds  (1%,  Colr%,  XW% ,  YW%) 

SHARED  Tgt ( ) 

DIM  X%( 4)  ,  Y%( 4) 

K  =  1 

FOR  J  -  1  TO  7  STEP  2 

POET  ( Tgt ( 1% ,  J),  Tgt ( I  % ,  J  +  1)),  Col r% 

X% ( K )  =  POINTfO) 
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Y%( K)  =  POINT ( 1 ) 

K  =  K  +  1 
NEXT  J 

FOR  J  =  1  TO  3 

FOR  K  =  J  +  1  TO  4 

IF  X% ( K )  >  X%(J)  THEN  SWAP  X%(K),  X%(J) 

IF  Y% ( K )  >  Y% ( J )  THEN  SWAP  Y%(K),  Y%(J) 

NEXT  K 
NEXT  J 

XW%  =  X%(1)  -  X% ( 4 ) 

YW%  =  Y% ( 1 )  -  Y% ( 4 ) 

END  SUB 

*********************************************************** 
REM  This  FUNCTION  is  used  to  get  filenames  for  Attack,  Hit 
REM  Target  Data,  and  Weapon  Data  files  which  are  used  as 
REM  input  files. 

*********************************************************** 
FUNCTION  GetFi 1 eName$  ( Inval idName$ ,  FTypeS) 

SHARED  Fi 1 eName$ ,  Path$,  Name$,  Ext$ 

Temp$  =  "Enter  "  +  FTypeS  +  "  filename" 

NameS  =  InvalidNameS 
Temp  =  LEN( NameS) 

WHILE  LEFTS ( NameS ,  Temp)  =  InvalidNameS 
CALL  PrintLine( 23 ,  20,  (TempS)) 

INPUT  ;  NameS 

Temp  -  INSTR( I ,  NameS,  ”.")  -  1 
IF  Temp  =  -1  THEN  Temp  =  LEN( NameS) 

IF  LEFTS ( NameS ,  Temp)  =  InvalidNameS  THEN  BEEP 
WEND 
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FileNameS  =  Name$ 

CALL  DecodeFi 1 eName ( Fi 1 eNameS ,  Path$ ,  NameS,  ExtS) 

IF  LEFTS (Ext$,  2)  =  THEN 

OPEN  "I",  #5,  PathS  +  Name$  +  ".$1$" 

ELSE 

OPEN  "I",  #6,  PathS  +  NameS  +  Ext$ 

END  IF 
CLOSE  #5 
CLOSE  #6 

GetFileNameS  =  FileNameS 
END  FUNCTION 

★  it********************************************************* 

REM  This  FUNCTION  asks  the  user  which  active  file  number 
REM  they  want  to  remove  when  the  number  of  active  files 
REM  exceeds  the  max  allowed. 

★  a********************************************************:": 
FUNCTION  GetFileNum%  (BoldColr%,  DefColr%,  Name$(),  FTypeS) 

STATIC  TempS 

TempS  =  FTypeS  +  "  files:  1  -  "  +  Name$(l)  +  ",  2  -  "  + 
NameS ( 2 ) 

Temp%  =  39  -  LEN ( TempS )  /  2 
COLOR  Bo  1 dCo 1 r% 

CALL  PrintLine( 24 ,  Temp% ,  (TempS)) 

COLOR  Def Col r% 

Num%  =  Ge t I Dat a% ( 2 3 ,  ("Replace  What  File"),  1,  2) 

CALL  ClrLine(24) 

G  e  t  F  i  1  eN  um%  -  N um% 

END  FUNCTION 
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*********************************************************** 
REM  This  SUB-PROGRAM  processes  user's  HIT  file  input 
REM  requirements. 

*********************************************************** 
SUB  GetHits  (BoldColr%,  DefColr%,  NHF% ,  AHF% ) 

SHARED  HitFile$(),  NumHits%(),  NumTr i a 1 s% ( ) ,  MaxAttacks%, 
MaxTria 1 s% 

STATIC  FileName$,  Path$,  Name$,  Ext$ 

SELECT  CASE  NHF% 

CASE  0 ,  1 

NHF%  =  NHF%  +  1 
AHF%  =  NHF% 

CASE  2 

AHF%  =  GetFi 1 eNum%( Bol dCol r% ,  DefColr%,  HitFileS 
("HIT")  ) 

CLOSE  AHF% 

END  SELECT 

FileNameS  =  GetFi 1 eName$ ( (Hi tFi 1 e$ ( 3  -  AHF% ) ) ,  ("HIT"-. 

CALL  DecodeFi 1 eName ( Fi 1 eName$ ,  PathS,  Name$,  Ext$) 

COLOR  BoidColr% 

IF  LEFT$ ( Ext$ ,  2)  =  ".$"  THEN 

CALL  ReadOl dHi ts ( Pat h$ ,  Name$,  NumHi ts% ( AHF% ) , 

NumTr i a 1 s% ( AHF% ) , AHF% ) 

ELSE 

NumHi ts% ( AHF% )  =  Get  I  Da t a% ( 2 4  ,  ("How  Many  Attacks"). 

1,  MaxAttacksi) 

NumTr l a  1 s% ( AHF% )  =  Ge 1 1  Da t a% ( 2 4  ,  ("How  Many  Trials"), 
1,  MaxTriais%) 

CALL  ReadNewHi ts ( Path$ ,  Name$,  Ext$,  NumHi ts% ( AHF% ), ; 
NumTr ials%( AHF%) ,  AHF% ) 

CALL  Wr l teHits ( PathS ,  Name$,  NumHi ts% ( AHF% ) , 

NumT  rial  sis  (  AHF%  )  ,  AHF%) 
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END  IF 


COLOR  Def Col r% 

Hi tFi 1 e$ ( AHF% )  =  Name$ 

END  SUB 

*********************************************************** 
REM  This  FUNCTION  is  called  when  the  user  is  required  to 
REM  tell  the  program  which  attack  or  trial  to  use  when 
REM  plotting  hits  or  attacks  on  the  screen.  It  performs  an 
REM  initial  check  to  make  sure  they  are  within 
REM  the  program  parameters. 

FUNCTION  Get IData%  (Row%,  Prompts,  Min%,  Max%) 

Temp%  =  39  -  LEN(PromptS)  /  2 
1%  =  Mm%  -  1 

WHILE  1%  <  Mi r %  OR  1%  >  Max% 

CALL  PrintLine(Row% ,  Temp%,  (Prompts)) 

INPUT  ;  1% 

IF  1%  <  Min%  OR  1%  >  Max%  THEN  BEEP 
WEND 

Get IData%  =  1% 

END  FUNCTION 


REM  This  FUNCTION  is  used  to  wait  for  the  users  responses 
REM  during  menu  options. 


:  x  x  *  * 


FUNCTION  GetOptnS  (Row%,  Col%,  Prompts) 
CALL  Pr  intLine(Row% ,  Colls,  (Prompts)) 
AS  =  "" 

WHILE  AS  =  ”” 

AS  =  INKEYS 
WEND 

PRINT  AS; 
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GetOptn$  =  A$ 


END  FUNCTION 

*********************************************************** 

REM  This  SUB-PROGRAM  reads  target  data  from  a  Target  file. 
*********************************************************** 

SUB  GetTargets  (BoldColr%,  DefColr%,  NumTargets%,  XMax) 

SHARED  TgtFileS  'Makes  TgtFileS  a  global  variable. 

STATIC  Fi 1 eName$ ,  PathS,  NameS,  Ext$ 

LOCATE  12,  20:  INPUT  "Enter  target  filename";  FileNameS 

CALL  DecodeFi 1 eName ( Fi 1 eName$ ,  PathS,  NameS,  E  x  1 3  ) 

'  Determines  file  type. 

COLOR  BoldCol r% 

IF  LEFTS ( Ext$ ,  2)  =  ".$”  THEN 

CALL  ReadOldTargets ( PathS ,  NameS,  NuraTargetsi,  XMax 

ELSE 

CALL  ReadNewTargets  (  PathS ,  NameS,  Ex’tS,  NumTargetsx  . 
XMax ) 

CALL  Wr i t eTargets ( PathS ,  NameS,  NumTargets%,  XMax) 

END  IF 

COLOR  Def Col r% 

TgtFileS  =  NameS  '  Takes  the  NameS  variable  returned  from 

'  the  sub-programs  and  makes  it  equal  to 
’  TgtFileS. 

END  SUB 

REM  This  SUB-PROGRAM  reads  new  target  col ors . 

SUB  GetTgtData  (BoldColr%,  DefColr%) 

SHARED  TgtColrS,  TgtColr%(),  TgtFi 1 1  % (  )  ,  Ma xTg t Types  X 
STATIC  CardS,  FileNameS,  PathS,  NameS,  ExtS 
ON  ERROR  GOTO  Fi 1 eNameEr i nr 
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FileNameS  =  GetFi  1  eName$ (('"’)  ,  ("Target  Color")) 

CALL  DecodeFi 1 eName ( Fi 1 eNameS ,  Path$,  Name$,  Ext$) 

COLOR  BoldColr% 

CALL  PrintLine( 24 ,  25,  ("Reading  Target  Color:")) 

OPEN  "I",  #3,  Path$  +  Name$  +  Ext$ 

1%  =  0 

WHILE  NOT  EOF ( 3 )  AND  1%  <  MaxTgtTypes% 

LINE  INPUT  #3,  Card$ 

1%  =  1%  +  1 

TgtCol r%( 1%)  =  VAL(HID$(Card$,  4,  2)) 

TgtFi 1 1  % ( 1% )  =  VAL(MID$( CardS,  7,  1)) 

LOCATE  24,  46:  PRINT  1%; 

WEND 
CLOSE  #3 
COLOR  Def Col r% 

TgtCol t $  =  NameS 
END  SUB 

**********************************************************:t 

REM  This  SUB-PROGRAM  determines  the  name  of  the  base  from 
REM  the  user.  The  user  can  input  any  name  but  it 
REM  would  normally  be  the  base  being  simulated. 
*********************************************************** 

SUB  GetTitle  (TitleS) 

LOCATE  8,  20:  INPUT  "Enter  name  of  base";  TitleS 
IF  LEN (TitleS)  >  20  THEN  TitleS  =  LEFTS ( Ti t 1 e$ ,  20) 

END  SUB 
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*********************************************************** 
REM  This  SUB-PROGRAM  reads  in  the  weapon  color  data.  If  the 
REM  user  wishes  to  change  the  weapon  color  data  the  user 
REM  needs  to  update  the  text  file  called  DemoWpn. 
*********************************************************** 

SUB  GetWpnData  (BoldColr%,  DefColr%) 

SHARED  WpnFi 1 e$ ,  WpnColr%(),  WpnStat%( ) ,  WpnX%( ) , 

WpnY%( ) ,  MaxWpnTypes% 

STATIC  Card$ ,  FileNameS,  PathS,  NameS,  Ext$ 

FileNameS  =  GetFi 1 eNameS ( ( "" ) ,  ("Weapon")) 

CALL  DecodeFi 1 eName( Fi 1 eNameS ,  PathS,  NameS,  ExtS) 

COLOR  BoldCol r% 

CALL  PrintLine ( 2 4 ,  25,  ("Reading  Weapon  Number:")) 

OPEN  "I",  #3,  PathS  +  NameS  +  ExtS 
1%  =  0 

WHILE  NOT  EOF ( 3 )  AND  1%  <  MaxWpnTypes% 

LINE  INPUT  #3,  CardS 
1%  =  1%  +  1 

WpnCo 1 r % ( I % )  =  VAL(MID$ (CardS,  4,  2)) 

WpnX% ( 1% )  =  VAL(MID$(Card$,  7,  4)) 

WpnY% (  I  % )  =  VAL(MID$(Card$,  12,  4)) 

LOCATE  24,  47:  PRINT  1%; 

WEND 
CLOSE  #3 
COLOR  DefCo 1 r % 

WpnFileS  =  NameS 
END  SUB 
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*********************************************************** 
REM  This  FUNCTION  sets  the  amount  of  space  between  each  grid 
REM  line  when  the  grid  feature  is  toggle  on  the  screen. 
*********************************************************** 

FUNCTION  Gr idStep%  (A) 

SELECT  CASE  A 

CASE  IS  <=  150 

GridStep%  =  10 

CASE  IS  <=  500 

GridStep%  =  50 

CASE  IS  <=  1500 

GridStep%  =  100 

CASE  IS  <=  5000 

GridStep%  =  500 

CASE  IS  <=  15000 

GridStep%  =  1000 

CASE  ELSE 

GridStep%  =  5000 

END  SELECT 

END  FUNCTION 

*******************************************************^**v 

REM  This  SUB-PROGRAM  asks  the  user  which  attack  and  trial 
REM  the  user  wants  shown  on  the  screen  and  shows  the  hits 
REM  for  that  attack  and  trial. 
*********************************************************** 

SUB  HitControl  (BoldColr%,  DefColr%,  NHF% ,  AHF% ,  AAF%  ,  AW 
AW%) 

SHARED  HitStat%( ) ,  NumHits%(),  NumTr i a 1 s% ( ) ,  Hit$() 

STATIC  TrlsS,  HitsS 
IF  NHF%  >  0  THEN 

TrlsS  =  STR$ ( NumHi ts% ( AHF% ) ) 
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Hi ts$  =  STR$ ( NumTr i a  1 s% ( AHF% ) ) 

COLOR  BoldCol r% 

CALL  PrintLine( 24 ,  25,  ("Attacks:  "  +  Trls$  +  " 
Trials:  "  +  Hits$)) 

COLOR  Def Co  1 r% 

IF  NumHi ts% ( AHF% )  >  1  THEN 

Num%  =  Get IData% ( 23 ,  ("What  Attack"),  0, 

NumHi ts% ( AHF% ) ) 

ELSE 

N  um%  =  1 
END  IF 

IF  NumTr i a 1 s% ( AHF% )  >  1  THEN 

Trl%  =  Get IData%( 23 ,  ("What  Trial"),  0, 

NumTr i a  1 s% ( AHF% ) ) 

ELSE 

Trl%  =  1 
END  IF 

IF  Num%  =  0  AND  Trl%  =  0  THEN 

CALL  Pi otHi tCont rol ( 1 ,  NumHi ts% ( AHF% ) ,  1, 

NumTr ia 1 s% ( AHF% ) ,  AHF% ,  AV%) 

Hi t $ ( AV% )  =  "HITS:  F"  +  FNT$ ( AHF% )  +  ”/A*/T*/*" 
ELSEIF  Num%  =  0  THEN 

CALL  PlotHitControl (1 ,  NumHi ts%( AHF% ) ,  Trl%,  Trl%, 
AHF% ,  AV% ) 

Hit$(AV%)  =  "HITS:  F"  +  FNT$ ( AHF% )  +  "/A*/T"  + 
FNT$ ( Tr 1  % )  +  "/*" 

ELSEIF  Tr 1  %  =  0  THEN 

CALL  P 1 otHi tCont rol ( Numl ,  Num%,  1, 

NumTr i al s% ( AHF% ) ,  AHF% ,  AV%) 

Hit$(A'A)  =  "HITS:  F"  +■  FNT$  ( AHF%  )  +  "/A"  + 

FNT$ ( Num% )  +  "/T*/*" 


ELSEIF  HitStat%(Num% ,  Trl%,  AHF%)  <>  AV%  AND 
Hi tStat% ( Num% ,  Trl%,  AHF% )  <>  3  THEN 

Hi t Stat% ( Num% ,  Trl%,  AHF%)  =  HitStat%(Num% ,  Trl%, 
AHF% )  +  AV% 

CALL  Pi otOneHi t (Num% ,  Trl%,  AHF% ,  AV%) 

IF  RIGHT$ ( Hi t$ ( AV% ) ,  2)  <>  "/*"  THEN 

Hit$(AV%)  =  Hi t $ ( AV% )  +  "  F"  +  FNT$ ( AHF% )  + 
"/A"  +  FNT$ ( Num% ) 

Hi t$ ( AV% )  =  Hi t$ ( AV% )  +  "/T”  +  FNT$ ( Tr 1  % ) 

END  IF 
END  IF 

CALL  PlotSubTi tle(AV%,  AW%,  AAF% ,  AHF% ) 

CALL  Cl rLine( 24 ) 

ELSE 

BEEP 

•  END  IF 
END  SUB 

*********************************************************** 
REM  This  FUNCTION  determines  the  initial  maximums  used  by 
REM  the  PlotGrid  sub-program. 
*********************************************************** 

FUNCTION  IMax%  (A,  B) 

IF  A  >  B  THEN 

IMax%  =  A 

ELSE 

IMax%  =  B 
END  IF 

END  FUNCTION 
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REM  This  FUNCTION  determines  the  initial  mimmums  used  by 
REM  the  PlotGrid  sub-program. 
********************************************************* 

FUNCTION  IMin%  (A,  B) 

IF  A  <  B  THEN 
IMin%  =  A 
ELSE 

IMin%  =  B 
END  IF 

END  FUNCTION 


REM  This  SUB-PROGRAM  sets  up  the  initial  coordinates  for  the 
REM  base  based  on  the  maximum  X  coordinate  read  off  the 
REM  target  data  file. 

SUB  InitCoordmates  (XMax,  Yl%,  Y2%) 

SHARED  A ( ) ,  B ( ) ,  C(),  D() 

FOR  1%  =  1  TO  2 
A( 1%)  =  0 
B ( 1%)  =  0 
C(I%)  =  XMax 

D ( I % )  =  C ( I % )  *  FND ( 20 ,  620,  Yl%,  Y2%) 

NEXT  1% 

END  SUB 


REM  This  SUB-PROGRAM  initializes  pallet  colors  based  on  the 
REM  DATA  statement  provided  in  the  main  program. 

'  *  ; 


SUB  I  rut  Palette 

SHARED  PalCol r%(  ) 
FOR  1%  -  1  TO  3 
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FOR  J%  =  1  TO  7 


READ  PalCol r%( 1% ,  J%) 

NEXT  J% 

NEXT  1% 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  initializes  the  initial  target  colors 
REM  by  entering  integer  numbers  into  the  target  color  array 
REM  and  target  till  array  from  DATA  statements  found  in  the 
REM  main  program. 

*****************************************************X***-«:-<r 

SUB  InitTargets 

SHARED  TgtCo 1 r% ( ) ,  TgtFill%(),  MaxTgtTypes% 

FOR  1%  =  1  TO  MaxTgtTypes% 

READ  TgtCol r% ( 1% ) 

NEXT  1% 

FOR  1%  =  1  TO  MaxTgtTypes% 

READ  TgtFil 1%( 1%) 

NEXT  1% 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  initializes  the  weapon  colors  based  on 
REM  the  DATA  statements  found  in  the  main  program. 
*********************************************************** 

SUB  InitWeapons 

SHARED  WpnCol r%( ) ,  WpnStat%(),  WpnX%(),  WpnY%(), 
MaxWpnTypes% 

FOR  1%  =  1  TO  MaxWpnTypes% 

READ  WpnCol r%( 1% ) 

WpnStat%( 1%)  =  1 
NEXT  1% 

FOR  II  -  1  TO  MaxWpnTypes% 
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READ  WpnX%( 1%) 

NEXT  1% 

FOR  1%  =  1  TO  MaxWpnTypes% 

READ  WpnY% ( 1% ) 

NEXT  1% 

END  SUB 

a*********************************************************)!: 
REM  This  SUB-PROGRAM  determines  which  files  the  users  want. 
REM  opened  based  on  their  selection. 
*********************************************************** 

SUB  InputControl  (BoldColr%,  DefColr%,  AAF% ,  NAF% ,  AHF% , 
NHF% ) 

SHARED  MaxAttacks%,  MaxTrials%,  MaxTgtTypes% , 
MaxWpnTypes% 

RESTORE  InputMenu 

CALL  PrintMenu(BoldCol r%(  DefColr%) 

DO 

Optn$  =  GetOptnS (23,  35,  "INPUT?  ")  '  Asks  user  for 

'  what  type  of  input 

SELECT  CASE  Optn$ 

CASE  "A",  "a" 

CALL  Get At t acks ( Bo  1 dCol r % ,  DefColr%,  NAF% ,  A  AF% 
'  Inputs  attack  file. 

CALL  PlotTitle(BoldColr%,  DefColr%,  AAF% ,  AHF% ) 
'  Lists  attack  file  in  title. 

EXIT  DO 

CASE  "H" ,  "h" 

CALL  C.e  t.H  1 1  s  (  Bo  1  dCo  1  r  %  ,  DefColr%,  NHF%  ,  AHF°s  , 

'  Inputs  hit  files. 

CALL  PlotTit lelBoldCul r3,,  DefColr%,  AAF% ,  AHF'fc  ) 


EXIT  DO 


CASE  "T" ,  "t” 

CALL  GetTgtData ( Bo  1 dCol r% ,  DefColr%)  '  Inputs 
'  target  color  data. 

EXIT  DO 

CASE  "W",  "w" 

CALL  GetWpnData ( Bol dCol r% ,  DefColr%)  ’  Inputs 
'  weapon  color  data. 

CALL  PlotTitle(BoldColr%,  DefColr%,  AAF% ,  AHF% ) 
EXIT  DO 

CASE  "X",  "x"  '  Exits  input  option. 

EXIT  DO 
CASE  ELSE 
BEEP 
END  SELECT 
LOOP 

CALL  ClrLine(24)  '  Clears  line  24  with  sub-menu. 

END  SUB 

REM  This  SUB-Program  brings  up  the  initial  screen  with  the 
REM  disclaimer 

icititici'icic'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k'k'k'k'k'k'k'k'kic’k'k'k'k'kic'kic'k’k'k'k'k'kic-k'k*'** 

SUB  Intro 

SCREEN  9,  ,  0,  1  '  draw  on  invisable  screen 

COLOR  7  ,  1 

LINE  (0,  0 ) - (  63 9 ,  349),  7  ,  B  ’  draw  box 
B$  =  "C7  BM4 5 , 1 20 " 

'  Draw  Box 

DRAW  B$  +  "U 90  R45  M+15,+15  D20  M-10,+10  M+10,+10  D20 
M-15,+15  L45" 

DRAW  "BM  + 10,-10  U30  R30  M+10,+10  D10  M-10,+10  L 30” 

DRAW  "BU 40  U30  R30  M+10,+10  D10  M-10,+10  L30" 
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DRAW  "BR5  U26  R29  BM-29,+66  U26  R29" 

DRAW  "BM-44,+36  M+4,+4  R45  M+16,-16  U23  M-10,-10 
M+10,-10  U20  M- 15 , -15  L5" 

DRAW  B$  +  "BM+5,-5  P14,7  BM+6,-74  P3,7  BD40  P3,7 
BM+40,-6  P3 , 7 " 

’DRAW  "A" 

DRAW  B$  +  ”BR7 0  U65  M+10,-10  R40  M+10,+10  D65  L10  U40 
L40  D40  L10 " 

DRAW  "BM+10,-50  U10  M+5,-5  R30  M+5,+5  DIO  L40  BR5  U8 
M+3,-3  R31" 

DRAW  "BM~  49 , +  61  M+4,+4  Rll  U40  R35  BD36  M+4,+4  Rll  U69 
M-10,-10  L5 " 

DRAW  "BM-40,+30  P15,7  BM-5,+47  P3,7  BR55  P3,7  BM~48,-5" 
P3 ,7" 

'DRAW  "S" 

DRAW  B$  +  "BR140  BU20  DIO  M+10,+10  R40  M+10,-10  U30 
M-10,-10  L35  M-5,-5  U5" 

DRAW  "M+5,-5  R30  M+5,+5  RIO  05  M-10,-10  L 40  M-10,+10  D15 
M+10,+10  R35" 

DRAW  "M+5,+5  D20  M-5,+5  L30  M-5,-5  U5  L10  BRIO  RS  D? 

M+5 , +5" 

DRAW  "BU40  M-5,-5  U3  M+3,-3  R31  BM+1,+1  M+4,+4  RIO 
M+1,-1  08  M-10,-10  L5 " 

DRAW  "BM-40,+75  M+4,+4  R40  M+11,-11  033  M-10,-10  Lf. 
BM-40,+10  M+4,+4  R34" 

DRAW  "BM- 43 , +21  P15,7  BM+10,+17  P3,7  B039  P3,7  BM-2,+22 
P3 , 7  BU42  P3 , 7  BR50  P3,7" 

'DRAW  "E" 

DRAW  B$  +  "BR210  075  R55  M+5,+5  D5  L50  D15  R35  M+5,+5 
M-5,+5  L35  D30  R50" 

DRAW  "D5  M-5,+5  L55  M+4,+4  R55  M+6,-6  05  M-3.-3  L2" 

DRAW  "BL 4 5  U26  R33  M  +  8,-8  Ui  M-5,-5  L5  BL31  Oil  R50  09 
M-5,-5  L5" 

DRAW  "BM- 50 , +70  P15,7  BD7  P3,7  BM+8.-17  P3,7  EO40  P3,7" 
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'DRAW  "P" 


DRAW  B$  +  "BR280  U90  R45  M+15,+15  D20  M-15,+15  L35  D40 
L10" 

DRAW  "BM+10,-50  U30  R30  M+10,+10  DIO  M-10,+10  L30  BR5 
U26  R29" 

DRAW  "BM-44,+76  M+4,+4  Rll  U40  R33  M+18,-18  U21  M-15,-15 
L5" 

DRAW  "BM-41,+85  P14,7  BD7  P3 , 7  BM+8,-57  P3,7" 

'DRAW  "L" 

DRAW  B$  +  "BR350  U75  RIO  D65  R50  D5  M-5,+5  L55  M+4,+4 
R55  M+6 , -6  U5  M-3 , -3" 

DRAW  "L2  BL45  U61  M-4,-4  LI  BM-5,+70  P15,7  BD7  P3 , 7 
BM+7,-57  P3 , 7 " 

'DRAW  "0" 

DRAW  B$  +  "BR430  M-10,-10  U55  M+10,-10  R40  M+10,+10  D55 
M-10,+10  L40" 

DRAW  "BU15  U45  M+5,-5  R30  M+5,+5  D45  M-5,+5  L30  M-5,-5" 

DRAW  "BD15  M+4,+4  R38  M+13,-13  U56  M-10,-10  L5" 

DRAW  "BM-30,+65  M-5,-5  U43  M+3,-3  R31" 

DRAW  "BM-44,+41  P15,7  BR8  P3,7  BM+2,+22  P3,7" 

'DRAW  "T" 

DRAW  B$  +  "BR515  U65  L25  U10  R60  DIO  L25  D65  LlO  M+4,+4 
Rll  U65  R25  Ull" 

DRAW  "M-3, -3  L2  BM-60,+10  M+4,+4  R21" 

DRAW  "BM+5,+56  P15,7  BD7  P3,7  BM-25,-64  P3,7" 

'PRINT  PROGRAMER  AND  EDITOR 

COLOR  15 

LOCATE  12,  17 

PRINT  "Written  by:  Capt  Bob  O'Neil,  Autovon  227-6520"; 

COLOR  7 
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LOCATE  14, 
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PRINT  "Mobility  and  Operability  Division"; 

LOCATE  15,  21 

PRINT  "Directorate  for  Theater  Force  Analysis"; 

LOCATE  16,  20 

PRINT  "Air  Force  Center  for  Studies  &  Analysis"; 

LOCATE  17,  16 

PRINT  "(Edited  &  Documented  by:  Capt  Cockley, 
AFIT/LSG)"; 

'  Print  Disclaimer 

LOCATE  19,  5 

PRINT  "This  program  is  the  property  of  AFSCA/SAGO; 
permission  is  granted  to  the"; 

LOCATE  20,  5 

PRINT  "user  to  make  copies  and  distribute  this  program 
as  long  as  this  notice  is"; 

LOCATE  21,  5 

PRINT  "included.  While  the  author  believes  the  program 
is  accurate  and  reliable,"; 

LOCATE  22,  5 

PRINT  "the  user  assumes  sole  responsibility  when  using 
it."; 

COLOR  15 

LOCATE  24,  25 

PRINT  "PRESS  ANY  KEY  TO  CONTINUE 
SCREEN  9 ,  ,0,0 

A$  =  "" 

WHILE  A$  =  "" 

A$  =  INKEYS 


WEND 


END  SUB 
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*********************************************************** 
REM  This  SUB-PROGRAM  determines  a  new  reference  point  for 
REM  the  program  based  on  user  inputs.  The  reference 
REM  point  is  changed  by  moving  the  coordinate  system  an  the 
REM  screen. 

*********************************************************** 

SUB  PanControl  (BoldColr%,  DefColr%,  PF%,  AV%,  AW%,  NAF% , 
NHF% ) 

SHARED  N umT a r g e t s % 

STATIC  TempS 
RESTORE  PanMenu 

CALL  PrintMenu ( Bol dCol r% ,  DefColr%) 

DO 

OptnS  =  GetOptnS (23,  36,  "PAN?  ") 

SELECT  CASE  OptnS 

CASE  "U",  "u"  'Pans  up. 

CALL  PanCoordinates(AV% ,  2,  PF%) 

CALL  i.eDrawWindow(NumTargets% ,  AV%  ,  AW%  ,  MAF%  . 
NHF%) 

EXIT  DO 

CASE  "D",  "d"  ’Pans  down. 

CALL  PanCoordinates ( AV% ,  2,  (-PF%)) 

CALL  ReDrawWindow(NumTargets% ,  AV%,  AW% ,  NAF% , 
NHF% ) 


EXIT  DO 

CASE  "L" ,  ”1”  ' Pans  left. 

CALL  PanCoordinat es ( AV% ,  1,  (-PF%)) 

CALL  ReDr awWindow( NumTargets% ,  AV% ,  AW% ,  NAF% , 
NHF% ) 

EXIT  DO 

CASE  "R" ,  "r"  ’ Pans  right . 

CALL  PanCoordinates ( AV% ,  I,  PF%) 
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CALL  ReDrawWindow(NumTargets% ,  AV% ,  AW% ,  NAF%, 
NHF% ) 

EXIT  DO 

CASE  "C" ,  "c"  'changes  the  pan  factor  to  allow  the 
'  user  to  move  in  bigger  increments. 

Temp$  =  "Old  Pan  Factor  ="  +  STR$(PF°sj  +  "  New 
Pan  Factor  =  " 

PF%  =  Get IData% ( 23 ,  (Temp$),  0,  10000) 

CASE  "X",  "x" 

EXIT  DO 
CASE  ELSE 
BEEP 
END  SELECT 
LOOP 

CALL  Cl r Line ( 2 4 ) 

END  SUB 

****************************************************  ******* 

REM  This  SUB-PROGRAM  changes  the  screen  reference  point. 

*********************************************************** 

SUB  PanCoordmates  (AV%,  Optn%,  PF%) 

SHARED  A ( )  ,  B ( )  ,  C( ) ,  D(  ) 

SELECT  CASE  Optn% 

CASE  1  ’  Controls  left  and  right  movement. 

A ( AV% )  =  A ( AV%  )  +  PF% 

C ( AV% )  =  C ( AV% )  +  PF% 

CASE  2  '  Controls  up  and  down  movement. 

B ( AV% )  =  B ( AV% ;  +  PF% 

D ( AV% )  =  D(AV%)  +  PF% 

END  SELECT 
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*********************************************************** 
REM  This  SUB-PROGRAM  draws  the  individual  circles 
REM  representing  the  area  affected  by  individual  hits  or 
REM  bombs . 

*********************************************************** 
SUB  Plot A imPair  (X%,  Y% ,  W,  H,  Phi,  Colr%,  R,  SF) 

XI  =  FNX1 ( X% ,  W,  H,  Phi) 

Y 1  =  FNY 1 ( Y% ,  W,  H,  Phi) 

CIRCLE  (XI,  Yl),  R,  Col r% ,  ,  ,  SF 

X3  =  FNX3 ( X% ,  W,  H,  Phi) 

Y3  =  FNY  3 ( Y% ,  W,  H,  Phi) 

CIRCLE  ( X3 ,  Y3 ) ,  R,  Colr%,  ,  ,  SF 

END  SUB 

REM  This  SUB-PROGRAM  determines  if  there  is  more  than  one 
REM  bomb  and  calls  the  sub-program  that  draws  the 
REM  individual  hits.  The  number  of  bombs  is  read  from  the 
REM  attack  cards.  Each  bomb  stick  has  a  certain  numb'er 
REM  of  bombs  depending  on  the  weapon  type. 

SUB  PlotAimPts  (Bomb%,  X%,  Y'l  ,  Ofst,  Inc,  Phi,  Colr%,  R.  SF 
IF  Bomb%  >  1  THEN 

CALL  Pi ot AimPai r ( X% ,  Y% ,  Ofst,  0,  Phi,  Colr%,  R,  SF) 

FOR  K  =  2  TO  Bomb\  /  2 

W  =  Ofst  +  Inc  *  (K  -  1) 

CALL  P 1 ot AimPai r ( X% ,  Y% ,  W,  0,  Phi,  Colr%,  R,  SF  ; 

NEXT  K 
ELSE 

CIRCLE  (X%,  Y\) ,  R,  Col r  % ,  ,  ,  SF 

END  IF 
END  SUE 
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REM  This  SUB-PROGRAM  is  called  from  PlotAttack  and  it  draws 
REM  all  the  attack  files  that  are  active. 
*********************************************************** 

SUB  Pi otAl 1  Attacks  ( AAF% ,  AV%,  NumAttacks%) 

SHARED  AttStat%( ) 

FOR  1%  =  1  TO  NumAttacks% 

IF  AttStat%(I%,  AAF% )  =  AV%  OR  AttStat%(I%,  AAF% ,)  =  3 
THEN 

CALL  PlotOneAttack( 1%,  AAF% ,  AV%) 

END  IF 
NEXT  1% 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  is  called  from  the  PlotHits  sub-program 
REM  and  it  draws  all  the  hits  for  the  active  files. 
*********************************************************** 

StiB  PlotAllHits  ( NumHi ts% ,  NumTrials%,  AHF% ,  AV%) 

SHARED  Hi tStat% ( ) 

FOR  1%  =  1  TO  N umH i t  s % 

FOR  J%  =  1  TO  NumTr i a  1 s% 

IF  Hi tStat% ( 1% ,  J%,  AHF% )  -  AV%  OR  HitStat%(I%,  J%  , 
AHF% )  =  3  THEN 

CALL  Pi otOneHi t ( 1% ,  J% ,  AHF% ,  AV%) 

END  IF 
NEXT  J% 

NEXT  1% 


END  SUB 


*********************************************************** 
REM  This  SUB-PROGRAM  called  from  the  Redraw  window  sub- 
REM  program.  It  redraws  attacks  on  the  screen  after  the 
REM  program  updates  user's  requests.  For  example,  if  the 
REM  user  zooms  into  a  new  area  of  the  base,  the  program 
REM  changes  the  coordinates  and  then  redraws  the  attacks 
REM  based  on  the  new  coordinates. 
*********************************************************** 

SUB  Pi otAttacks  ( NAF% ,  AV%) 

SHARED  NumAt tacks% ( ) 

FOR  1%  =  1  TO  NAF% 

CALL  PlotAl lAttacks( 1%,  A V% ,  NumAttacks%( 1%) ) 

NEXT  1% 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  defines  the  initial  graphics  areas  and 
REM  draws  a  border  around  the  area  that  will  represent  the 
REM  base. 

*********************************************************** 
SUB  Pi otBorder  (AW%,  AV% ,  Colr%) 

SHARED  A ( ) ,  B ( ) ,  C(),  D(),  VY%() 

Yl%  =  VY% ( AW% ,  1)  -  1 
Y2%  =  VY% ( AW% ,  2)  +  1 
VIEW  (19,  Yl% ) - ( 621 ,  Y2% ) 

WINDOW  SCREEN  (19,  Yl%)-(621,  Y2%) 

LINE  (19,  Yl% ) - ( 62 1 ,  Y2%),  Colr%,  B 
VIEW  (20,  VY% ( AW% ,  1 ) ) - (  620  ,  VY%(AW%,  2)) 

WINDOW  ( A ( AV% ) ,  B(AV%) )-(C(AV%) ,  D(AV%)) 

END  SUB 

REM  This  SUB-PROGRAM  uses  the  attack  information  to  plot  the 
REM  direction  of  the  bomb  stick  (length  and  width  of  th- 
PEM  area  affected  by  the  bombs) . 

SUB  PlotDirec  (X%  ,  Y% ,  W,  H,  Phi,  Colr%) 
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X4  =  FNX4 ( X% , 

w, 

H, 

Phi) 

Y4  =  FNY  4 ( Y% , 

w. 

H, 

Phi  ) 

X3  =  FNX3 ( X% , 

w. 

H, 

Phi  ) 

Y  3  =  FNY3(Y% , 

w. 

H, 

Phi) 

LINE  ( X3 ,  Y3 )  - ( X4 ,  Y4),  CoIr% 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  draws  a  grid  on  the  screen  to  help 
REM  locate  targets  and  hits. 

*********************************************************** 
SUB  PlotGrid  (AV%(  AW% ) 

SHARED  A( ) ,  B ( ) ,  C(),  D(),  Grid$() 

IF  Grid$(AV%)  =  ”ON"  THEN 
Col r%  =  12 

GSt ep%  =  GridStep%( (C(AV%)  -  A(AV%))) 

I  Star t%  =  IMin% ( A( AV% ) ,  B(AV%))  \  GStep% 

I Stop%  =  IMax% ( C ( AV% ) ,  D( AV% ) )  \  GStep%  +  1 

CALL  P 1 otGr idLines ( I  Star t% ,  IStop%,  GStep%,  ColrV 
AV% ) 

CALL  PlotGridAxis(IStart%,  ISt.op%,  GStep%,  15) 

CALL  Pi otGridLabel s ( IStart% ,  IStop%,  GStep%,  Colr%, 
AV% ,  AW% ) 

END  IF 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  draws  circles  on  the  each  axis  of  the 
REM  grid . 

SUB  PlotGridAxis  (IStart%,  IStop%,  GStep%,  Colr%) 

FOR  1%  =  I Start%  TO  IStop% 

Temp%  =  lib  *  GStep% 
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CIRCLE  ( Temp% ,  0),  25,  Colr% 

PAINT  ( Temp% ,  0),  Colr% 

CIRCLE  (0,  Temp% ) ,  25,  Colr% 

PAINT  (0,  Temp%),  Colr% 

NEXT  1% 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  labels  the  grids  based  on  the  initial 
REM  coordinates. 

*********************************************************** 

SUB  Pi otGridLabel s  (IStart%,  IStop%,  GStep%,  Colr%,  AV% , 
AW%) 

SHARED  VY%( ) ,  A( ) ,  D( ) ,  DefColr% 

PSET  (A(AV%),  D ( AV% ) ) ,  0 
IF  POINT ( 0 )  =  0  THEN 
Co  1  Ad  j%  =  0 
RowAd  j%  =  2 
ELSE 

ColAdj%  =  -2 
RowAdj%  =  1 
END  IF 

TopRow%  =  ( VY% ( AW% ,  1)  +  6)  \  14 

BotRow%  =  ( VY% ( AW% ,  2)  +  6)  \  14 

COLOR  Co  1 r % 

FOR  1%  =  IStart%  TO  IStop%  STEP  2 
Temp%  =  1%  *  GStep% 

PSET  (Temp%,  D(AV%)) 

C o 1  %  =  (POINT(O)  +  4)  \  8  +  Col  Ad  j% 

IF  Co  1  %  >  10  AND  Col  %  <  72  THEN 
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LOCATE  TopRow%  +  2,  Col% 
PRINT  Temp%; 


END  IF 

PSET  (A(AV%),  Temp%) 

Row%  =  ( POINT ( 1 )  +  7)  \  14  +  RowAd  j% 

IF  Row%  >  TopRow%  +  2  AND  Row%  <  BotRow%  THEN 
LOCATE  Row%,  4 
PRINT  Temp% ; 

END  IF 
NEXT  1% 

COLOR  Def Col r% 

END  SUB 


*********************************************************** 


REM  This  SUB-PROGRAM  draws  the  lines  on  the  grid. 


SUB  Pi otGr idLines  (IStart%,  IStop%,  GStep%,  Colr%,  AV%) 
SHARED  A( ) ,  B( ) ,  C( ) ,  D( ) 

FOR  1%  =  IStar t%  TO  IStop% 

Temp%  =  1%  *  GStep% 

LINE  ( Temp% ,  B ( AV% ) ) - ( Temp% ,  D(AV%)),  Colr% 

LINE  (A(AV%),  Temp% )  -  (  C  ( AV% ) ,  Temp%),  Colr% 

NEXT  1% 

END  SUB 


REM  This  SUB-PROGRAM  determines  how  many  hits  to  plot  and 
REM  then  plots  the  individual  hits  on  the  screen. 


SUB  Pi  otHi  tControl  (FirstHit.%,  LastHit%,  FirstTil%, 
Las  tT  r  1  'b  ,  AHF%  ,  AW) 

SHARED  Hi t S t a t % (  ) 
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FOR  1%  =  Fi rstHi t%  TO  LastHit% 


FOR  J%  =  Fi rstTr 1  %  TO  LastTrl% 

IF  Hi tStat% ( 1% ,  J%,  AHF%)  <>  AV%  AND  HitStat%(I%, 
J%,  AHF% )  <>  3; 

THEN 

HitStat%( 1% ,  J%,  AHF% )  =  HitStat%(I%,  J%,  AHFV) 
+  AV% 

CALL  Pi otOneHit ( 1%  ,  J%,  AHF% ,  AV%) 

END  IF 
NEXT  J% 

NEXT  1% 

END  SUB 


REM  This  SUB-PROGRAM  is  called  from  the  Redraw  sub-program 
REM  and  is  used  to  plot  all  the  individual  hits  in  the 
REM  active  hit  file. 

******************■*******************************■*****< r  *  *  *  * 


SUB  PlotHits  ( NHF% ,  AV% ) 

SHARED  NumHi ts% ( ) ,  NumTrials%() 

FOR  K%  =  1  TO  NHF% 

CALL  Plot A 1 1 Hi ts ( NumH i ts% ( K% ) ,  NumTr i a 1 s% ( K% ) ,  KV 
AV%) 

NEXT  K% 

END  SUB 


REM  This  SUB-PROGRAM  uses  the  attack  data  and  plots  the 
REM  attack  on  the  screen. 


*  *  *  * 


SUB  P 1 otOneA 1 1 ack  (Num%,  AAF% ,  AV%; 

SHARED  At  t  P  t  r% (  ) ,  WpnColr^(),  WpnX%(),  WpnY%( ) ,  SAR !  , 
ECovS (  ) 

DIM  AR  AS  AttRecordType 
Ptr%  =  At  t  Pt  r % ( Num% ,  AAF%) 
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GET  AAF%  +  3,  Ptr%,  AR 
WHILE  AR.Num  =  Num% 

Colr%  =  WpnCo 1 r%( AR . Wpn ) 

CALL  P 1 ot St ick( AR . X ,  AR . Y ,  AR.W,  0,  AR . Phi , 

Colr%)  '  Draws  bomb  sticks. 

CALL  P 1 otDi r ec ( AR . X ,  AR . Y ,  AR.W,  50,  AR.Phi, 

Colr%)  '  Plots  the  direction  of  the  stick. 

CALL  Pi otAimPts ( AR . Bomb ,  AR . X ,  AR . Y ,  AR.Ofst,  AR.Inc, 
AR.Phi,  Colr%,  25,  SAR ! )  '  Draws  the  individual  bombs 

'  in  the  stick. 

IF  ECov$ ( AV% )  =  "ON"  AND  WpnX% ( AR . Wpn )  >  25  THEN 
R  =  WpnX%( AR .Wpn) 

SF  =  SAR!  *  WpnY% ( AR . Wpn )  /  R 

CALL  Pi otAimPts (AR. Bomb,  AR . X ,  AR . Y ,  AR.Ofst, 
AR.Inc,  AR.Phi,  Colr%,  R,  SF) 

END  IF 

Ptr%  =  Ptr%  +  1 
GET  AAF%  f  3,  Ptr%,  AR 
WEND 
END  SUB 

REM  This  SUB-PROGRAM  plots  the  individual  hits  on  the  ' 

REM  screen. 

I*******************************  **************************** 

SUB  Pi otOneHi t  (Num%,  Trl%,  AHF% ,  AV%) 

SHARED  Hi tPtr%( ) ,  WpnColr%(),  WpnX%(),  WpnY%(),  SAR!, 

ECo v$ ( ) ,  UXOsS ( ) 

DIM  HR  AS  Hi tRecordType 

HPtr  %  =  HitPtr%(Num%,  Trl%,  AHF% ) 

GET  AHF3, ,  HPtr%,  HR 

WHILE  HP.Atk  =  Num%  AND  HR.Trl  =  Trl% 

Colr'i  =  WpnCo  1  r  %(  HR  .  Wpn  .) 
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IF  HR.UXO 


0  THEN 


CIRCLE  ( HR . X ,  HR . Y ) ,  25,  Colr%,  ,  ,  SAR! 

PAINT  ( HR . X ,  HR . Y ) ,  Colr%,  Colr% 

IF  ECov$ ( AV% )  =  "ON"  AND  WpnX% ( HR . Wpn )  >  25  THEN 
SF  =  WpnY%(HR.Wpn)  /  WpnX% ( HR . Wpn ) 

IF  SF  >  1  THEN 

R  =  WpnX%(HR .Wpn)  *  SAR! 

ELSE 

R  =  WpnX% ( HR . Wpn ) 

END  IF 

CIRCLE  ( HR . X ,  HR . Y ) ,  R,  Colr%,  ,  ,  SF  *  SAR! 

END  IF 

ELSEIF  UXOs$ ( AV% )  =  "ON"  THEN 

CIRCLE  ( HR . X ,  HR . Y  )  ,  25,  Colr%,  ,  ,  SAR! 

END  IF 

HPt  r%  =  HPt  r%  +  I 
GET  AHF% ,  HPt  r % ,  HR 
WEND 
END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  determines  the  bomb  stick  starting  and 
REM  ending  point  and  draws  a  line  between  the  two  points 
REM  representing  the  stick. 

*********************************************************** 
SUB  PlotStick  (X%,  Y% ,  W,  H,  Phi,  Colr%) 

XI  =  FNX1 ( X% ,  W,  H,  Phi) 

Y 1  =  FNY 1 ( Y% ,  W,  H,  Phi) 

X3  =  FNX3 ( X% ,  W,  H,  Phi) 

Y  3  =  FNY 3 ( Y% ,  W,  H,  Phi) 
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LINE  (XI,  Y1)-(X3,  Y3 ) ,  Colr% 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  shows  attack  and  hit  file  information 
REM  (File,  attack,  time  of  day,  day  of  attack)  on  line  23. 
*********************************************************** 

SUB  Pi otSubTi t 1 e  (AV%,  AW% ,  AAF% ,  AHF% ) 

SHARED  Attacks ( ) ,  Hit$(),  SRow%( )  ,  MaxViews% 

DIM  STi t 1 e$ ( MaxViews% ) 

A  =  LEN(Attack$(AV%) ) 

H  =  LEN ( Hi t $ ( AV% ) ) 

IF  A  >  8  AND  H  >  5  THEN 

IF  A  >  38  THEN  Attack$(AV%)  -  "ATTACKS:  F"  + 

FNT$ ( AAF% )  +  "/MULTIPLE/*" 

IF  H  >  38  THEN  Hit$(AV%)  =  "HITS:  F"  +  FNT$ ( AHF% )  + 
"/MULTIPLE/*" 

STi t 1 e$ ( AV% )  =  Attack$(AV%)  +  "  -  "  +  Hit$(AV%) 

ELSE  I F  A  >  8  THEN 

IF  A  >  78  THEN  Attack$(AV%)  =  "ATTACKS:  F"  + 

FNT$ ( AAF% )  +  "/MULTIPLE/*" 

STi t 1 e$ ( AV% )  =  Attacks ( AV% ) 

ELSE I F  H  >  5  THEN 

IF  H  >  78  THEN  Hit$(AV%)  =  "HITS:  F"  +  FNTS ( AHF% )  + 
"/MULTIPLE/*" 

STi t 1 e$ ( AV% )  =  Hi t $ ( AV% ) 

ELSE 

STi t 1 e$ ( AV% )  -  "  " 

END  IF 

CALL  Printline)  SRow%(  AW%)  ,  (39  -  LEN  (  STi  1 1  e$  (  AV%  >  )  /  2'i. 

( STi t 1 e$ ( AV% ) ) ) 

END  SUB 
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*********************************************************** 
REM  This  SUB-PROGRAM  takes  the  coordinates  found  in  the 
REM  TARGETS  text  file  and  draws  lines  to  represent 
REM  buildings,  runways,  and  taxiways. 
*********************************************************** 


SUB  PlotTargets  ( NumTargets% ) 

SHARED  Tgt(),  TgtColr%(),  TgtFill%() 

FOR  1%  =  1  TO  NumTargets% 

TgtType%  =  Tgt(I%,  9) 

Colr%  =  TgtCol r%( TgtType% )  '  Sets  color  based  on 

'  target  type. 

LINE  ( Tgt ( 1% ,  1),  Tgt ( I %  ,  2))-(Tgt(I%,  3),  Tgt(I%, 
4)),  Co  1 r% 

LINE  ( Tgt ( 1% ,  3),  Tgt(I%,  4))-(Tgt(I%,  5),  Tgt(I%, 

6 ) ) ,  Col r% 

LINE  ( Tgt ( I % ,  5),  Tgt(I%,  6))-(Tgt(I%,  7),  Tgt(I%, 

8 ) ) ,  Col r% 

LINE  ( Tgt ( 1% ,  7),  Tgt(I%,  8))-(Tgt(I%,  1),  Tgt(I%, 

2) ) ,  Col r% 

IF  TgtFi 1 1 %( TgtType% )  =  1  THEN  '  Determines  if  target 
’  gets  filled. 

CALL  GetBounds ( 1% ,  Colr%,  XW%,  YW%) 

IF  (XW%  >  1)  AND  ( YW%  >  1)  THEN 

X  =  ( Tgt  1 1 % ,  1)  +  Tgt ( I  % ,  5))  /  2 
Y  =  ( Tgt ( I %  ,  2)  +  Tgt ( 1% ,  6))  /  2 
PAINT  (X,  Y),  Col r% ,  Colr% 

END  IF 
END  IF 
NEXT 
END  SUB 


7  3 


*********************************************************** 
REM  This  SUB-PROGRAM  prints  the  title  of  the  base  being 
REM  simulated  plus  any  active  attack  and  hit  files  on  the 
REM  top  of  the  screen. 

*********************************************************** 
SUB  Pi  otTi  tie  (BoldCoU%,  DefColr%,  AAF%  ,  AHF% ) 

SHARED  Title$,  TgtFileS,  WpnFileS,  AttFile$(),  HitFileSty 
Temp  =  10  +  LEN(TitleS)  +  LEN ( TgtFi 1 e$ )  +  LEN ( WpnFi 1 e$ ) 
FOR  1%  =  1  TO  2 

Temp  =  Temp  +  LEN ( At tFi 1 e$ ( I  % ) )  +  LEN ( Hi tFi 1 e$ ( 1% ) ) 
NEXT  1% 

LOCATE  1,40-  Temp  /  2 
COLOR  Def Col r% 

PRINT  TitleS  +  "  -  ( "  +  TgtFileS  +  +  WpnFileS  * 

IF  AAF%  =  1  THEN  '  Checks  to  see  if  any  active  attack 
’  files. 

COLOR  Bol  dCol  r%  :  PRINT  At  tJFi  1  e$  ( 1 )  ; 

COLOR  Def Co  1 r% :  PRINT  " , "  +  AttFile$(2)  + 

ELSE 

PRINT  AttFileS(l)  + 

COLOR  Bol dCol r% :  PRINT  AttFile$(2); 

COLOR  Def Col r% :  PRINT  " , " ; 

END  IF 

IF  AHF%  =  1  THEN  '  Checks  to  see  if  any  active  hit  files. 
COLOR  Bol dCo 1 r% :  PRINT  HitFi’eS(l); 

COLOR  Def Col r% :  PRINT  "  ,  ”  +  HitFile$(2)  + 

ELSE 

PRINT  HitFileS(l)  + 

COLOR  Bol dCo 1 r % :  PRINT  HitFile$(2); 


COLOR  DefColr*:  PRINT  ” ) " ; 


END  IF 


END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  is  used  to  print  error  information  on 
REM  line  24.  It  is  called  from  the  Error  traps  in  the  ma:n 
REM  program. 

************************************************.-********** 
SUB  PrintErrMsg  (Num%,  Msg$) 

BEEP 

CALL  PrintLine( 24 ,  1,  ("ERROR  #  "  +  STR$(Num%)  +  "  + 

Msg$ )  ) 

DO 

LOOP  WHILE  INKEYS  =  "" 

END  SUB 

REM  This  SUB-PROGRAM  prints  a  line  of  information  based  on 
REM  the  memory  variables  input  from  other  modules.  For 
REM  example  the  test  string  variable  might  contain  a 
REM  question  asking  for  a  user  input. 

SUB  PrintLine  (Row%,  Col%,  t.ext$) 

CALL  Cl r Line ( Row% ) 

LOCATE  Row% ,  Col* 

PRINT  textS; 

END  SUB 

REM  This  SUB-PROGRAM  prints  the  main  menu  on  the  screen  at 
REM  row  25. 


SUB  PnntMenu  (MenuColr%,  DefColr%) 
READ  NumOptns%,  Row% ,  OptnsColr* 
READ  Col  % ,  MenuS 
COLOR  MenuCol r% 

CALL  Pr intLine( Row* ,  Col*.  (MenuS)) 
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COLOR  OptnsColr% 

FOR  1%  =  1  TO  NumOptns% 

READ  Col  % ,  Menu$ 

LOCATE  Row% ,  Col%:  PRINT  Menu$; 

NEXT  1% 

COLOR  Def Col r% 

END  SUB 

********************************************************** 
REM  This  SUB-PROGRAM  reads  attack  text  file  which  is  in 
REM  TSARINA  card  column  format. 
********************************************************** 

SUB  ReadNewAttacks  (Path$,  Name$,  Ext$,  NumAttacks%,  AAF% ) 
SHARED  AttDay%( ) ,  AttHour%(),  AttPtr%(),  MaxAttacks% 

DIM  AR  AS  AttRecordType 
Num%  =  AAF%  +  3 

OPEN  "I",  #3,  Path$  +  Name$  +  Ext$ 

OPEN  "R",  Num% ,  PathS  +  NameS  +  ".$$$",  LEN(AR) 

CALL  Pr intLine( 24 ,  25,  ("Reading  Attack:  ATT_# : " - } 

K%  =  0  of  DATA  cards  (attacks) 

•7%  =  0  '#  of  ATT  cards 

WHILE  NOT  EOF ( 3 ) 

LINE  INPUT  #3,  CardS 
IF  LEFTS (CardS,  4)  =  "DATA"  THEN 
K%  =  K%  +  1 

IF  K%  >  MaxAttacksl*  THEN  ERROR  L02 
AttDay%(K9>,  AAF%)  =  VAL ( MI D$ ( CardS ,  29,  2)) 

At  tHour% ( K% ,  AAF% )  -  VAL ( M IDS ( CardS  ,  33,  4)) 

At  t  P  t.  r  9,  (  K  %  ,  AAF%)  =  J%  +  1 

LOCATE  24,  41:  PRINT  Kl ; 
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ELSEIF  LEFTS ( Card$ ,  2)  =  "ATT"  THEN 
AR.Num  =  K%  '  Attack 

AR.Phi  =  VAL (MID$(Card$,  8,  3))  *  3.141592  /  180 
'  Heading 

AR.X  =  VAL(MID$(Card$,  13,  6))  '  X  coord,  DMPI 

AR.Y  =  VAL(MID$ (Card$,  19,  6))  ’  Y  coord,  DMPI 

AR.Bomb  =  VAL ( MI D$ ( Car d$ ,  49,  6))  '  #  of  bombs 
AR.SLen  =  VAL ( MI D$ ( CardS ,  55,  6))  ’  Stick  length 
AR.Wpn  =  VAL (MID$(Card$,  65,  2))  '  Weapon  type 

IF  AR.Bomb  >  1  THEN 
AR.W  =  AR.SLen  /  2 
AR.Inc  =  AR.SLen  /  (AR.Bomb  -  1) 

AR.Ofst  =  AR.Inc  /  2 
ELSE 

AR.W  =  50 
AR.Inc  =  0 
AR.Ofst  =  0 


END  IF 

FOR  1%  =  1  TO  VAL(MID$(CardC,  5,  2))  ’  Add  an  ATT 

'  card  for  each  pass 

J%  =  J%  +  1 

PUT  Num% ,  ,  AR 

LOCATE  24,  53:  PRINT  , 

NEXT  I\ 

END  IF 

END 

LOSE  #3 
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NumAttacks%  =  K%  '  Set  number  of  attacks 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  reads  a  hit  text  file  which  is  output 
REM  from  TSARINA. 

*********************************************************** 

SUB  ReadNewHits  (PathS,  NameS,  Ext$,  NumHits%,  NumTnals%, 
AHF% ) 

SHARED  Hi tPt  r% ( ) 

DIM  HR  AS  Hi tRecordType 

OPEN  "I",  #3,  Path$  +  NameS  +  Ext$ 

OPEN  "R",  AHF% ,  PathS  +  NameS  +  ”.$$$",  LEN(HR) 

CALL  PrintLine( 24 ,  25,  ("Reading  Attack:  Trial:  Bomb:"); 
1%  =  0  '  #  of  cases  (attacks) 

J%  =  0  '  #  of  trials 

K%  =  0  '  #  ot  impacts 

WHILE  NOT  EOF ( 3 ) 

LINE  INPUT  #3,  CatdS 
TempS  =  LEFTS ( CardS ,  6) 

Temp%  =  VAL(TempS) 

IF  TempS  =  "  CASE:"  THEN 

Atk%  =  VAL (MI D$ (CardS ,  7,  4)) 

Tr 1  %  =  VAL(MID$(Card$,  19,  4)) 

SELECT  CASE  Atk% 

CASE  IS  <  1% 

ERROR  103 
CASE  1% 

SEI ECT  CASE  Tr 1  % 

CASE  IS  <= 
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ERROR  104 


CASE  J%  +  1  TO  NumTrial s% 

CALL  Fi 1 lHi tPt r ( 1% ,  1%, 
AHF% ,  K%  +•  1) 

J%  =  Tr 1  % 

CASE  ELSE 

ERROR  101 

END  SELECT 

CASE  1%  +  1  TO  NumHi ts% 

CALL  Fi 1 lHi t Pt r ( 1% ,  1%,  J%  + 
AHF% ,  K%  +  1) 

CALL  Fi 1 lHitPtr( 1%  +  1,  Atk% 
NumTrials%,  AHF%,  K%  +  1) 

1%  =  Atk% 

CALL  Fil iHitPtr ( 1%,  1%,  1,  Tr 

1) 

J%  =  Tr 1  % 

CASE  ELSE 
ERROR  100 
END  SELECT 

LOCATE  24,  41:  PRINT  1%; 

LOCATE  24,  53:  PRINT  J% ; 

ELSEIF  Temp%  <>  -32000  THEN 


K\ 

=  K% 

■  +  1 

HR 

,  Atk 

=  1% 

HR 

.  Tr  1 

=  J% 

HR  , 

.X  = 

VAL{MID$ (Card$,  1, 

6)) 

HR 

.  Y  = 

VAL(MID$ (CardS,  7, 

•5 )  ) 

HR  . 

.  Wpn 

-  VAL ( M I D$ ( CardS , 

I  3  , 

J%  +  1,  Tr 1  % , 


1,  NumTrials%, 

-  1,  1, 

1%,  AHF% ,  K%  + 


7') 


OS  * 


HR.UXO  =  VAL (MI D$ ( CardS  ,  19,  6)) 
HR. Phi  =  VAL(MID${Card$,  25,  6)) 
HR. Alt  =  VAL(MID$(Card$,  31,  6)) 
PUT  AHF% ,  ,  HR 

END  IF 

LOCATE  24,  64:  PRINT  K% ; 

WEND 
CLOSE  #3 


END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  reads  a  target  text  file  which  is  in 
EM  TSARINA  card  column  format. 
********************************************************** 

SUB  ReadNewTargets  (PathS,  NameS,  Ext$,  NumTargets%,  XMax) 


SHARED  Tgt  (.)  ,  MaxTargets% 

ON  ERROR  GOTO  TgtFi 1 eNameEr r or 
XMax  =  0 

1%  =  0  '  #  of  TGT  cards 

LOCATE  14,  25:  PRINT  "Reading  Target  Number:";  '  Prints 
'  message  on  screen. 

OPEN  "I",  #1,  PathS  +  NameS  +  ExtS 

WHILE  NOT  EOF ( 1 )  AND  1%  <  MaxTargets% 

LINE  INPUT  #1,  CardS 

IF  LEFTS ( CardS ,  3)  =  "TGT"  THEN 

1%  =  1%  +  1 

LOCATE  14,  47:  PRINT  1%; 

H  =  VAL (MI D$ (CardS,  19,  6))  '  Reads  height  of 

'  target . 

W  =  VAL(MID$(Card$ ,  25,  6))  '  Reads  width  of 

'  target. 
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Phi  =  VAL(MID$(Card$,  34,  3))  *  3.141592  /  180 
'  Reads  heading  (relative  to  0  degs . )  of  target  and 
'  converts  it  to  radians. 

Tgt ( 1% ,  1)  =  VAL(MID$( Card$,  7,  6))  ’  X-coordinate 

'  of  target. 

Tgt ( 1% ,  2)  =  VAL(MID$(Card$,  13.  6))  '  Y-coordinate 
'  of  target. 

Tgt ( 1% ,  3)  =  Tgt ( I  % ,  1)  +  H  *  SIN(Phi)  '  The  rest 
'  computes  the  remainig  three  coordinates  based  on 
’  above  inputs. 


Tgt ( 1% , 

4)  =  Tgt ( I % , 

2) 

+  H 

* 

COS ( Phi ) 

Tgt ( 1% , 

5)  =  Tgt ( I % , 

3) 

+  W 

* 

COS ( Phi ) 

Tgt ( I  % , 

6)  =  Tgt ( I % , 

4) 

-  W 

* 

SIN ( Phi ) 

Tgt ( 1% , 

7)  =  Tgt ( I % , 

5) 

-  H 

* 

S I N ( Phi ) 

Tgt ( 1% , 

8)  =  Tgt ( 1% , 

6) 

-  H 

★ 

COS ( Phi ) 

Tgt ( 1% ,  9)  =  VAL (MID$ ( CardS ,  41,  2))  ’  Reads  target 

'  type.  •  . 

IF  Tgt ( 1% ,  1)  +  W  >  XMax  THEN  XMax  =  Tgt(I%,  1)  +  W 
'  Sets  XMax  each  time  it  reads  a  target  and  determines 
'  final  maximum  X  value. 


END  IF 
WEND 
CLOSE  #1 

NumTargets%  =  1% 
END  SUB 


:  *  * 

REM  This  SUB-PROGRAM  reads  files  with  .$1$  and  .$$$ 

REM  extensions.  These  files  are  in  binary  format  which 
REM  were  created  after  reading  the  initial  Attack  files  m 
REM  TSARINA  format. 


SUB  ReadOl dAttacks  (Path$,  NameS,  NumAttacks%,  AAF%) 
SHARED  A 1 1  Da  y  %  (  )  ,  At.tHour%(),  AttPtr%() 

DIM  AR  AS  AttRecordType 
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Num%  =  AAF%  +  3 

OPEN  "R",  Num% ,  Path$  +  NameS  +  ”.$$$",  LEN(AR) 

CALL  PrintLine( 24 ,  25,  ("Reading  Attack:  ATT_# : " ) ) 

OPEN  "I",  #3,  Path$  +  NameS  +  ".$1$" 

INPUT  #3,  NumAttacks% 

FOR  1%  =  1  TO  NumAttacks% 

INPUT  #3,  AttPt  r% ( 1% ,  AAF% ) ,  AttDay%(I%,  AAF% ) , 
AttHour%(I%,  AAF% ) 

LOCATE  24,  41:  PRINT  1%; 

LOCATE  24,  53:  PRINT  AttPtr%(I%,  AAF% ) ; 

NEXT  1% 

CLOSE  #3 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  reads  fii.es  w'ith  .$1$  and  .$$$ 

REM  extensions.  These  files  are  in  binary  format  which 
REM  were  created  after  reading  the  initial  Hit  files  in 
REM  TSARINA  format. 

*********************************************************** 
SUB  ReadOldHits  (Path$,  Name$,  NumHits%,  NumTnals%,  AHF% ) 
SHARED  Hi tPtr%( ) 

DIM  HR  AS  Hi tRecordType 

OPEN  "R",  AHF% ,  Path$  +  NameS  +  ".$$$",  LEN(HR) 

CALL  PrintLine( 24 ,  25,  ("Reading  Attack:  Trial: 

Bomb : " ) ) 

OPEN  "I",  #3,  PathS  +  NameS  +  ”.$1$" 

INPUT  #3,  NumHi ts% ,  NumTrials% 

FOR  1%  =  1  TO  NumH i t s% 

FOR  J%  =  1  TO  N umT r i a  1 s % 

INPUT  #3,  HitPtr%( 1%,  J% ,  AHF% ) 

LOCATE  24,  41:  PRINT  1%; 


82 


LOCATE 

24, 

53  : 

PRINT 

J%; 

LOCATE 

24, 

64: 

PRINT 

Hi tPt  r% ( I  % ,  J%,  AHF% ) 

NEXT  J% 

NEXT  1% 

CLOSE  #3 
END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  reads  files  with  .$1$  and  . $$$ 

REM  extensions.  These  files  are  in  binary  format  which 
REM  were  created  after  reading  the  initial  Target  files  in 
REM  TSARINA  format. 

*********************************************************** 
SUB  ReadOl dTargets  (Path$,  NameS,  NumTargets%,  XMax) 

SHARED  Tgt ( ) 

ON  ERROR  GOTO  TgtFi 1 eNameEr ror 
OPEN  "I",  #1,  Path$  +  NameS  +  " .$1$" 

INPUT  #1,  NumTargets%/  XMax 
CLOSE  #1 

DEF  SEG  =  VARSEG ( Tg t ( 1 ,  1)) 

5LOAD  PathS  +  NameS  +  ".$$$",  VARPTR  ( Tgt  (  1  ,  1)) 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  is  used  to  redraw  the  active  window 
REM  whenever  there  are  changes  made  to  the  inputs  of  that 
REM  window. 

A********************************************************** 

SUB  ReDrawWmdow  ( NumTargets% ,  AV%,  AW%  ,  NAF%  ,  NHF% ) 

SHARED  A ( )  ,  B (  )  ,  C( )  ,  D(  ) 

CLS 

WINDOW  (  A (  AVT> )  ,  B (  AV%  )  )  -  (  C  (  AV%  )  ,  D(AV%)} 

CALL  Pi otTargets ( NumTargets% ) 

CALL  SaveWindow( AW% ,  AV%) 


3  l 


CALL  PlotAttacks(NAF%,  AV%) 

CALL  PlotHits( NHF% ,  AV%) 

CALL  PlotGrid(AV%,  AW%) 

END  SUB 

******************************************************** 
REM  This  SUB-PROGRAM  resets  various  controls  in  the  main 
REM  program. 


SUB  ResetCont rol  (BoldColr%,  De£Colr%,  AAF% ,  NAF% ,  AHF% , 
NHF% ,  A V%,  AW%) 

RESTORE  ResetMenu 

CALL  PrintMenu(BoldCol r% ,  DefColr%) 

DO 

OptnS  =  GetOptnS (23,  35,  "RESET?  ") 

SELECT  CASE  OptnS 

CASE  "M" ,  "m"  '  Returns  coordinates  that  match. 

CALL  ResetMatching( NAF% ,  NHF% ,  A V% ,  AW% ; 

EXIT  DO 

CASE  "S",  "s"  '  Returns  to  the  initial  starting 

'  coordinates . 

CALL  ResetStartup(NAF%,  MHF% ,  AV%,  AW% ; 

EXIT  DO 

CASE  "V",  "v"  '  Resets  the  graphics  area  to  t  h»- 

’  maximum  size. 

CALL  ResetV  1  ew  (  Eo  1  dCo  1  r  %  ,  De£Colr%,  AAF%  ,  NAF't  , 
AHF% ,  NHF% ,  AV%,  AW%) 

RESTORE  MainMenu 

CALL  Pr intMenu( 3o 1 dCo 1 r % ,  DefColrt) 

EXIT  DO 
CASE  "X" ,  "x" 

EXIT  DO 
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CASE  ELSE 


BEEP 
END  SELECT 
LOOP 

CALL  Cl rLine( 24) 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  determines  active  windows  and  sets 
REM  original  graphics  coordinates  within  each  window. 

SUB  ResetMatching  ( NAF% ,  NHF% ,  AV% ,  AW%) 

SHARED  N umT a r g e t s % ,  A( ) ,  B( ) ,  C(),  D(  )  ,  VY%( ) ,  Sl%( ) , 

S2%(  ) 

Temp%  =  3  -  AV% 

A ( AV% )  =  A(Temp%) 

B ( AV% )  =  B ( Temp% ) 

C(AV%)  =  C(Temp%) 

D(AV%)  =  D ( Temp% ) 

SELECT  CASE  AW% 

CASE  1 
CLS 

WINDOW  ( A ( AV% ) ,  B(AV%) )-(C(AV%) ,  D(AV%))  ’  Defines 

'  graphics  area. 

CALL  PI otTargets ( NumTargets% ) 

CALL  SaveWindow( AW% ,  AV%) 

CASE  2 

WINDOW  SCREEN  (20,  VY%(2,  l))-(620,  VY%(2,  2:< 
Defines  graphics  area. 

PUT  (20,  VY%(2,  1)),  S2%,  PSET  '  Draws  on  the 
'  screen  a  graphics  image  stored  in  specified  array. 

CET  (20,  VY%(2,  1  )  )  -  (  6  2  0  ,  V Y%(2,  2)),  Sl%  '  Stores 
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'  a  graphics  image  into  an  array. 

WINDOW  (A(AV%),  B(AV%) )-(C(AV%) ,  D(AV%)) 

CASE  3 

WINDOW  SCREEN  (20,  VY%(3,  l))-(620,  VY%(3,  2)) 

PUT  (20,  VY% ( 3 ,  1)),  Sl%,  PSET 

GET  (20,  VY% ( 3 ,  l))-(620,  VY%(3,  2)),  S2% 

WINDOW  ( A ( AV% ) ,  B(AV%) )-(C(AV%),  D(AV%)) 

END  SELECT 

CALL  PlotAttacks( NAF% ,  AV%) 

CALL  PlotHits( NHF% ,  AV%) 

CALL  PlotGrid( AV% ,  AW% ) 

END  SUB 

**********************************************************  * 
REM  This  SUB-PROGRAM  resets  the  split  coordinates  to  be  used 
REM  when  using  split  screens. 
*********************************************************** 

SUB  ResetSplitCoord  (AV%) 

SHARED  VY%(),  A( ) ,  B(),  C(),  D( ) 

D(AV%)  =  B(AV%)  +  4  *  (D(AV%)  -  B(AV%))  /  3 

Temp  =  (D(AV%)  -  B(AV%))  /  FND(20,  620,  VY%(1,  1),  VY%( 1, 
2)) 

Temp  =  ( C ( AV% )  -  A(AV%))  -  Temp 
A ( AV% )  =  A(AV%)  +  Temp  /  2 
C(AV%)  -  C ( AV% )  -  Temp  /  2 
END  SUE 

REM  This  SUB-PROGRAM  returns  the  screens  to  the  original 
REM  coordinates  used  prior  to  zooming  or  panning. 

SUB  ResetStartup  (NAF%,  NHF% ,  AV%,  AW%) 

SHARED  A(  )  ,  B(),  C(),  D(  )  ,  XMa:<,  VY%(),  NumTargetsS 


A(AV%)  =  0 
B ( AV% )  =  0 
C ( AV% )  =  XMax 

D ( AV% )  =  C ( AV% )  *  FND( 20 ,  620,  VY%(1,  1),  VY%(1,  2)) 

IF  AW%  >  1  THEN 

CALL  SetSplitCoord(AV%,  AW%) 

END  IF 

CALL  ReDrawWindow(NumTargets% ,  AV% ,  AW%,  NAF% ,  NHF%) 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  resets  the  graphics  area  to  its  maximum 
REM  size. 

*********************************************************** 

SUB  ResetView  (BoldColr%,  DefColr%,  AAF% ,  NAF% ,  AHF% ,  NHF%  , 
AV% ,  AW%) 

SHARED  VMax ,  SCoir%() 

VIEW  (0,  0)-(639,  VMax'  '  VMax  depends  on  the  type  of 
'  screen  computer  has. 

CLS 

CALL  PlotTitle(BoldColr%,  DefColr%,  AAF% ,  AHF% ) 

IF  AW%  >  1  THEN 
AW%  =  5  -  AW% 

AV%  =  3  -  AV% 

CALL  PlotBorder(AW% ,  AV%,  DefColr%) 

CALL  PlotSubTit le(AV% ,  AW% ,  AAF% ,  AHF% ) 

CALL  RestoreWindow( AW%  ,  AV%) 

CALL  PlotAttacks( NAF% ,  A V% ) 

CALL  Pi otHi ts ( NHF% ,  AV%) 

CALL  Pi otGr id( AV% ,  AW%) 

AW%  =  5  -  AW% 
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AV% 


3 


AV% 


END  IF 

CALL  PlotBorder(AW%,  AV%;  SColr%(AV%)) 

CALL  P 1 otSubTi t I e( AV% ,  AW%,  AAF% ,  AHF% ) 

CALL  RestoreWindow( AW% ,  AV%) 

CALL  PlotAttacks( NAF% ,  AV%) 

CALL  PlotHits( NHF% ,  AV%) 

CALL  PlotGrid( AV% ,  AW%) 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  restores  the  current  active  windows  to 
REM  graphics  arrays. 

************************  .*  *  *  *  ******************************* 
SUB  RestoreWindow  (AW %,  AV%) 

SHARED  Sl%(),  S2% ( ) ,  VY%( )  ,  A(  )  ,  B(),  C(  ) ,  D() 

WINDOW  SCREEN  (20,  VY%(AW%,  1 ) ) - ( 620 ,  VY%(AW%,  2)) 

SELECT  CASE  AW% 

CASE  1 

PUT  (20,  VY% ( AW% ,  1)),  Sl%,  PSET 
PUT  (  20,  146),  S  2  % ,  PSET 
CASE  2 

PUT  (20,  VY% ( AW% ,  1)),  Sl%,  PSET 
CASE  3 

PUT  (20,  VY% ( AW% ,  1)),  S2%,  PSET 
END  SELECT 

WINDOW  ( A ( AV% ) ,  B(AV%)  )-(C(AV%)  ,  D(AV%)) 

END  SUB 
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*********************************************************** 
REM  This  SUB-PROGRAM  saves  current  window  to  graphic  arrays 
REM  so  they  can  be  recalled  later. 
*********************************************************** 


SUB  SaveWindow  (AW%,  AV%) 

SHARED  Sl%(),  S2% ( ) ,  VY%(),  A( ) ,  B(),  C(),  D( ) 
WINDOW  SCREEN  (20,  VY%(AW%,  1 ) ) - ( 620 ,  VY%(AW%,  2)) 
SELECT  CASE  AW% 

CASE  1 

GET  (20,  VY% ( 1 ,  l))-(620,  145),  Sl% 

GET  (20,  146 )  - (  620  ,  VY%(1,  2)),  S2% 

CASE  2 

GET  (20,  VY% ( 2 ,  l))-(620,  VY%(2,  2)),  Sl% 
CASE  3 

GET  (20,  VY% ( 3 ,  l))-(620,  VY%(3,  2)),  S2% 

END  SELECT 

WINDOW  ( A ( AV% ) ,  B(AV%) )-(C(AV%) ,  D(AV%)) 

END  SUB 


REM  This  SUB-PROGRAM  determines  the  initial  split 
REM  coordinates  to  be  used  whenever  the  user  decides  to 
REM  view  two  windows  on  the  screen. 
*********************************************************** 


SUB  SetSpl itCoord  ( AV% ,  AW%) 

SHARED  VY%(),  A( ) ,  B(),  C( ) ,  D( ) 

D ( AV% )  =  B(AV%)  +  .75  *  (D(AV%)  -  B(AV%)) 

Temp  =  (D(AV%)  -  B(AV%))  /  FND(  20,  620,  VY^(AW%,  1 , 
V Y%(AW%,  2)) 


Temp  =  Temp  -  (C(AV%)  -  A(AV%)) 
A ( AV% )  =  A ( AV% )  -  Temp  /  2 


C(AV%)  =  C ( AV% )  +  Temp  /  2 
END  SUB 

********************************************************** 
REM  This  SUB-PROGRAM  determines  the  weapon  status  for  each 
REM  weapon  type. 

********************************************************** 
SUB  SetWpnStat  (Stat%) 

'  Stat%  =  0  for  Wpn  display  off,  =  1  for  Wpn  display  on 
SHARED  WpnStat%( ) ,  MaxWpnTypes% 

FOR  1%  =  1  TO  MaxWpnTypes% 

WpnStat%( 1%)  =  Stat% 

NEXT  1% 

END  SUB 

********************************************************** 
REM  This  SUB-PROGRAM  is  used  to  split  the  graphics  area  in 
REM  half  to  allow  the  user  to  view  two  windows  at  once. 
********************************************************** 

SUB  Spl itControl  (DefColr%,  AAF% ,  NAF% ,  AHF% ,  NHF% ,  AV% , 
AW% ) 

SHARED  VY% ( ) ,  SColr%() 

VIEW  (19,  VY% ( 1 ,  1)  -  1 ) - ( 621 ,  VY% ( 1 ,  2)  +  1) 

CLS 

IF  AW%  =  1  THEN 
AW%  =  4  -  AV% 

AV%  =  3  -  AV% 

CALL  SetSpl itCoord( AV% ,  AW%) 

CALL  DrawWindow( AAF% ,  NAF% ,  AHF% ,  NHF% ,  AW% ,  AV% , 
DefCol r%) 

AW%  =  5  -  AW% 

AV%  =  3  -  AV% 

CALL  SetSpl itCoord( AV% ,  AW% ) 
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CALL  DrawWindow( AAF% ,  NAF% ,  AHF% ,  NHF% ,  AW% ,  AV% , 

SCol r%( AV%) ) 

ELSE 

AW%  =  1 

AV%  =  3  -  AV% 

CALL  Reset SplitCoord(AV%) 

AV%  =  3  -  AV% 

CALL  ResetSpl itCoord( AV% ) 

CALL  DrawWindow( AAF% ,  NAF% ,  AHF% ,  NHF% ,  AW%,  AV% , 

SCol r%(AV%) ) 

END  IF 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  switches  the  file  that  is  currently 
REM  active.  There  can  be  up  to  two  files  (Attack  and  Hit) 
REM  open  at  the  same  time  but  the  user  can  only  view  one 
REM  file  at  a  time.  The  active  files  are  displayed  in  bold 
REM  white  on  the  title  line. 

*********************************************************** 
SUB  ToggleActFile  ( AF% ,  NF% ) 

IF  NF%  =  2  THEN 
AF%  =  3  -  AF% 

ELSE 

BEEP 
END  IF 
END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  changes  the  color  of  the  background. 

REM  Turning  background  colors  off  allows  the  user  to  see 
REM  the  attacks  and  hits  more  clearly. 
*********************************************************** 

SUB  ToggleBGrd  (BGrdS) 

IF  BGrdS  =  "ON"  THEN 
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CALL  ChangePalette(0 ,  3) 

BGrd$  =  "OFF” 

ELSE 

CALL  ChangePal ette( 0 ,  1) 

BGrdS  =  "ON" 

END  IF 
END  SUB 

******x**************************************************** 

REM  This  SUB-PROGRAM  determines  what  the  users  wants  to  turn 
REM  on  or  off  by  toggling  certian  program  characteristics. 
****************************************x************x***** 

SUB  Toggl eControl  (BoldColr%,  DefColr%,  NAF% ,  AAF% ,  NHF% , 
AHF% ,  AV%,  AW% ,  BGrd$ ,  FGrdS) 

RESTORE  Toggl eMenu 

CALL  PrintMenu( BoldCol r% ,  DefColr%) 

DO 

OptnS  =  GetOptn$( 23 ,  35,  "TOGGLE?  ") 

SELECT  CASE  OptnS 

CASE  "A",  "a"  '  Changes  active  attack  file. 

CALL  Toggl eActFi 1 e( AAF% ,  NAF% ) 

CALL  PlotTitle(Bol dCo 1 r% ,  DefColr%,  AAF% ,  AHF% ) 
EXIT  DO 

CASE  "H" ,  "h"  '  Changes  active  hit  file. 

CALL  ToggleActFile(AHF%,  NHF% ) 

CALL  PlotTitl e(BoldCol r% ,  DefColr%,  AAF% ,  AHF% ) 
EXIT  DO 

CASE  "B",  ”b"  '  Changes  background  color. 

CALL  ToggleBGrd(BGrdS) 

EXIT  DO 
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CASE  "F",  "f"  '  Changes  foreground  color. 

CALL  Togg leFGrd(FGrd$) 

EXIT  DO 

CASE  "G",  "g"  ’  Turns  the  grid  on  or  off. 

CALL  Togg 1 eGrid ( NAF% ,  NHF% ,  AW% ,  A V%) 

EXIT  DO 

CASE  "U",  "u”  '  Shows  the  UXOs  on  the  screen. 

CALL  Togg 1 eUXOs { NAF% ,  NHF% ,  AW% ,  A V% ) 

EXIT  DO 

CASE  "E",  "e"  '  Turns  on  or  off  the  effects 

'  (highlights  certain  hits  or  targets  on  the  screen). 

CALL  ToggleEf fects(NAF%,  NHF% ,  AW% ,  AV%) 

EXIT  DO 

CASE  "S",  "s"  '  Switches  the  active  views. 

CALL  Toggl eScreen( AAF% ,  NAF% /  AHF% ,  NHF% ,  AW% , 
AV% ,  Def Col r% ) 

EXIT  DO 

CASE  "X",  "x" 

EXIT  DO 

CASE  ELSE 

BEEP 

END  SELECT 

LOOP 

CALL  Cl rLine( 24  ) 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  turns  on  the  effects  for  displaying 
REM  attacks,  hits,  or  the  grid. 
*********************************************************** 

SUB  ToggleEf fects  ( NAF% ,  NHF% ,  AW% ,  AV%) 
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SHARED  ECov$  (  ) 


IF  ECov$(AV%)  -  "ON"  THEN 
ECov$ ( AV% )  =  "OFF" 

CALL  Restor eWindow ( AW% ,  AV%) 
ELSE 

ECov$ ( AV% )  =  "ON" 

END  IF 

CALL  PlotAttacks(NAF%,  AV%) 

CALL  P 1 o tHi ts ( NHF% ,  AV%) 

CALL  PlotGrid( AV% ,  AW%) 

END  SUB 


*********************************************************** 
REM  This  SUB-PROGRAM  changes  the  foreground  colors  based  on 
REM  weapon  status.  Turning  foreground  colors  off  and  then 
REM  using  the  function  keys  allows  the  users  to  clearly  see 
REM  individual  weapon  types. 

*********************************************************** 
SUB  ToggleFGrd  (FGrdS) 

SHARED  WpnStat% ( ) 

Temp%  =  0 

FOR  1%  =  1  TO  10 

Temp%  =  Temp%  OR  WpnStat%(I%) 

NEXT  1% 

IF  Temp%  =  1  THEN 

CALL  ChangePa 1 et t e ( 8 ,  3) 

CALL  SetWpnStat ( 0 ) 

FGrdS  =  "OFF" 

ELSE 

CALL  ChangePal ette( 8 ,  2) 

CALL  SetWpnStat ( 1 ) 
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FGrdS 


=  "ON 


l» 


END  IF 
END  SUB 

*********************************************************** 

REM  This  SUB-PROGRAM  turns  on  and  off  the  grid  system. 
*********************************************************** 

SUB  ToggleGrid  ( NAF% ,  NHF% ,  AW%,  AV%) 

SHARED  Grid$ ( ) 

IF  GridS ( AV% )  =  "ON"  THEN 

Grid$( AV%)  =  "OFF" 

CALL  RestoreWindow( AW% (  AV%) 

CALL  Pi ot At tacks ( NAF% ,  AV%) 

CALL  PlotHits( NHF% ,  A V%) 

ELSE 

GfidS ( AV% )  =  "ON" 

CALL  PlotGrid(AV%,  AW%) 

END  IF 
END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  changes  which  screen  is  active  by 
REM  changing  the  color  of  the  border  around  the  screen. 

fc********************************************************** 

SUB  Togg 1 eScreen  ( AAF% ,  NAF% ,  AHF% ,  NHF% ,  AW% ,  AV%, 

DefCol r%) 

SHARED  SCol r%( ) 

IF  AW%  =  1  THEN 

CLS 

AV%  =  3  -  AV% 

CALL  DrawWindow(  AAF%  ,  NAF%  ,  AHF%  ,  NHF%  ,  AW%  ,  AW, 

SCol r%( AV%) ) 

ELSE 
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CALL  Pi otBorder ( AW% ,  AV% ,  DefColr%) 

AW%  =  5  -  AW% 

AV%  =  3  -  AV% 

CALL  Pi otBorder ( AW% ,  AV%  ,  SColr%(AV%)) 

END  IF 
END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  determines  whether  the  unexploded 
REM  ordinance  is  shown  on  screen. 
*********************************************************** 

SUB  ToggleUXOs  ( NAF% ,  NHF% ,  AW% ,  AV%) 

SHARED  UXOsS () 

IF  UXOsS ( AV% )  =  "ON"  THEN 
UXOsS ( AV% )  =  "OFF" 

CALL  Rest  or eWindow ( AW% ,  AV%) 

CALL  PlotAttacks( NAF% ,  AV% ) 

CALL  PlotHits( NHF% ,  AV%) 

CALL  P 1 otGr id ( AV% ,  AW%) 

ELSE 

UXOsS ( AV% )  =  "ON" 

CALL  ? 1 otHi ts ( NHF% ,  AV%) 

END  IF 
END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  changes  the  colors  of  the  weapons 
REM  displayed  on  the  screen. 

*********************************************************** 
SUB  ToggleWpn  (WpnNum%) 

SHARED  WpnStat%(),  WpnColr%() 

IF  WpnStat%(WpnNum%)  =  1  THEN 
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WpnStat%(WpnNum%)  =  0 
PALETTE  WpnCol r%(WpnNum%) ,  4 
ELSE 

WpnStat%(WpnNum%)  =  1 

PALETTE  WpnCol r%(WpnNum%) ,  WpnCol r%(WpnNum% )  +  48 
END  IF 
END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  writes  a  binary  file  of  the  TSARINA 
REM  format  text  file  to  allow  for  a  quicker  display  of 
REM  inputs  the  next  time  program  is  called. 
*********************************************************** 

SUB  WriteAttacks  (Path$,  Name$,  NumAttacks%,  AAF%) 

SHARED  AttDay%( ) ,  AttHour%(),  AttPtr%() 

OPEN  "0" ,  #3,  Path$  +  NameS  +  ".$1$" 

WRITE  #3,  NumAttacks% 

FOR  1%  =  1  TO  NumAttacks% 

WRITE  #3,  AttPtr%( 1%  ,  AAF% ) ,  AttDay%(I%,  AAF% )  , 

At  tHour% (  1%  ,  AAF% ) 

NEXT  1% 

CLOSE  #3 

END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  writes  a  binary  file  of  the  TSARINA 
REM  format  text  file  to  allow  for  a  quicker  display  of 
REM  inputs  the  next  time  program  is  called. 
*********************************************************** 

SUB  WriteHits  (PathS,  NameS,  NumHits%,  NumTrials%,  AHF%) 
SHARED  Hi t Pt r % (  ) 

OPEN  "0",  #3,  PathS  +  NameS  +  ".$1$" 

WRITE  #3,  NumHi  ts% ,  NumTnals% 

FOR  1%  =  1  TO  NumH i ts% 
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FOR  J%  =  1  TO  NumTrials% 

WRITE  #3,  HitPtr% ( 1% ,  J%,  AHF% ) 

NEXT  J% 

NEXT  1% 

CLOSE  S3 
END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  writes  a  binary  file  of  the  TSARINA 
REM  format  text  file  to  allow  for  a  quicker  display  of 
REM  inputs  the  next  time  program  is  called. 
*********************************************************** 

SUB  WriteTargets  (Paths,  NameS,  NumTargets%,  XMax) 

SHARED  Tgt ( ) 

OPEN  ”0",  #1,  Path$  +  NameS  +  ".$1$" 

WRITE  #1,  NumTargets% ,  XMax 
CLOSE  #1 

DEF  SEG  =  VARSEG ( Tgt ( 1 ,  1)) 

BSAVE  PathS  +  NameS  +  ".$$$",  VARPTR ( Tgt ( 1 ,  1)),  36000 
END  SUB 

*********************************************************** 
REM  This  SUB-PROGRAM  changes  the  value  of  the  coordinate 
REM  system  to  allow  the  user  to  get  a  closer  view  of 
REM  various  sections  of  the  base. 
*********************************************************** 

SUB  ZoomControl  (BoldColr%,  DefColr%,  ZF%,  AV%,  AW% ,  NAF%, 
NHF% ) 

SHARED  A( ) ,  C ( ) ,  NumTargets% 

STATIC  TempS 
RESTORE  ZoomMenu 

CALL  Pr intMenu( BoldCol r% ,  DefColr%) 

DO 

OptnS  =  GetOptnS (23,  36,  "ZOOM?  ") 
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SELECT  CASE  Optn$ 


CASE  "I",  "i" 

Temp  =  C ( AV% )  -  A(AV%) 

IF  Temp  <=  2  *  ZF%  THEN  ZF%  =  Temp  /  5 

CALL  ZoomCoordinates ( AV% ,  AW% ,  (ZF%),  (ZF%), 

( -ZF% ) ) 

CALL  ReDr awWindow ( NumTargets% ,  AV% ,  AW% ,  NAF% 
NHF% ) 

EXIT  DO 

CASE  "0",  "o" 

CALL  ZoomCoordinates (AV% ,  AW% ,  (-ZF%),  (-ZF%) 

( ZF% ) ) 

CALL  ReDrawWindow ( NumTargets% ,  AV% ,  AW% ,  NAF% 
NHF% ) 

EXIT  DO 

CASE  "C",  "c" 

Temp$  =  "Old  Zoom  Factor  ="  +  STR$(ZF%)  4-  " 
Zoom  Factor  =” 

ZF%  =  Get IData%( 23 ,  (Temp$),  0,  10000) 

CASE  "X",  "x" 

EXIT  DO 
CASE  ELSE 
BEEP 
END  SELECT 
LOOP 

CALL  ClrLine(24) 

END  SUB 


New 
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*********************************************************** 
REM  This  SUB-PROGRAM  determines  the  new  coordinate  values 
REM  based  on  whether  the  user  wants  zoom  in  or  out . 
*********************************************************** 


SUB  ZoomCoordinates  (AV%,  AW% ,  AF% ,  BF% ,  CF%) 

SHARED  A(),  B(),  C( ) ,  D( ) ,  VY%() 

A ( AV% )  =  A(AV%)  +  AF% 

B(AV%)  =  B ( AV% )  +  BF%  *  FND(20,  620,  VY%(AW%,  1), 
VY% ( AW% ,  2)) 

C(AV%)  =  C ( AV% )  +  CF% 

D ( AV% )  =  B ( AV% )  +  ( C ( AV% )  -  A(AV%))  *  FND(20,  620, 
VY% ( AW% ,  1),  VY% ( AW% ,  2)) 


END  SUB 
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